home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 23 / Amiga Format AFCD23 (Feb 1998, Issue 107).iso / +look_here_1st!+ / reader_requests / alienbreed3d2 / newrender.s < prev    next >
Text File  |  1997-11-28  |  58KB  |  4,107 lines
  1.  
  2. * the 'Hello World' program in 68000 Assembler
  3. * the C version can be found in the Intuition manual
  4.  
  5. * this source code (C) HiSoft 1992 All Rights Reserved
  6.  
  7. * for Devpac Amiga Version 2 the following symbols were changed
  8. * to avoid clashes with the new include files:
  9. * Screen->MyScreen, NewScreen->MyNewScreen
  10. * Window->MyWindow, NewWindow->MyNewWindow
  11.  
  12.     opt    c+,d+
  13.  
  14.     include    workbench:utilities/devpac/system            use pre-assembled header
  15.     include    exec/exec_lib.i
  16.     include    intuition/intuition.i
  17.     include    intuition/intuition_lib.i
  18.     include    graphics/graphics_lib.i
  19.     include    graphics/text.i
  20.  
  21. INTUITION_REV    equ    31        v1.1
  22. GRAPHICS_REV    equ    31        v1.1
  23.  
  24. * Open the intuition library
  25.  
  26.     moveq    #100,d4            default error return code
  27.  
  28.     moveq    #INTUITION_REV,d0    version
  29.     lea    int_name(pc),a1
  30.     CALLEXEC OpenLibrary
  31.     tst.l    d0
  32.     beq    exit_false        if failed then quit
  33.     move.l    d0,_IntuitionBase    else save the pointer
  34.  
  35.     moveq    #GRAPHICS_REV,d0
  36.     lea    graf_name(pc),a1
  37.     CALLEXEC OpenLibrary
  38.     tst.l    d0
  39. ;    beq    exit_closeint        if failed then close Int, exit
  40.     move.l    d0,_GfxBase
  41.     lea    MyNewScreen(pc),a0
  42.     CALLINT    OpenScreen        open a screen
  43.     tst.l    d0
  44. ;    beq    exit_closeall        if failed the close both, exit
  45.     move.l    d0,MyScreen
  46.  
  47.     move.l MyScreen,a0
  48.     lea sc_BitMap(a0),a0
  49.     lea bm_Planes(a0),a0
  50.  
  51.     
  52.     move.l #RAWSCRN,(a0)
  53.     move.l #RAWSCRN+10240,4(a0)
  54.     move.l #RAWSCRN+10240*2,8(a0)
  55.     move.l #RAWSCRN+10240*3,12(a0)
  56.     move.l #RAWSCRN+10240*4,16(a0)
  57.     move.l #RAWSCRN+10240*5,20(a0)
  58.     move.l #RAWSCRN+10240*6,24(a0)
  59.     move.l #RAWSCRN+10240*7,28(a0)
  60.  
  61. * now initialise a NewWindow structure. This is normally easier to
  62. * do with dc.w/dc.l statement etc, but for comparison with the C
  63. * version we do it like this
  64.     lea    MyNewWindow(pc),a0    good place to start
  65.     move.w    #20,nw_LeftEdge(a0)
  66.     move.w    #20,nw_TopEdge(a0)
  67.     move.w    #300,nw_Width(a0)
  68.     move.w    #100,nw_Height(a0)
  69.     move.b    #0,nw_DetailPen(a0)
  70.     move.b    #1,nw_BlockPen(a0)
  71.     move.l    #window_title,nw_Title(a0)
  72. _temp    set    WINDOWCLOSE!SMART_REFRESH!ACTIVATE!WINDOWSIZING
  73.     move.l    #_temp!WINDOWDRAG!WINDOWDEPTH,nw_Flags(a0)
  74.     move.l    #CLOSEWINDOW,nw_IDCMPFlags(a0)
  75.     move.w    #CUSTOMSCREEN,nw_Type(a0)
  76.     clr.l    nw_FirstGadget(a0)
  77.     clr.l    nw_CheckMark(a0)
  78.     move.l    MyScreen(pc),nw_Screen(a0)
  79.     clr.l    nw_BitMap(a0)
  80.     move.w    #100,nw_MinWidth(a0)
  81.     move.w    #25,nw_MinHeight(a0)
  82.     move.w    #640,nw_MaxWidth(a0)
  83.     move.w    #200,nw_MaxHeight(a0)
  84.  
  85. * thats it set up, now open the window (a0=NewWindow already)
  86. ;    CALLINT    OpenWindow
  87. ;    tst.l    d0
  88. ;    beq    exit_closescr            if failed
  89. ;    move.l    d0,MyWindow            save it
  90. ;
  91. ;    move.l    d0,a1                window
  92. ;    move.l    wd_RPort(a1),a1            rastport
  93. ;    moveq    #20,d0                X
  94. ;    moveq    #20,d1                Y
  95. ;    CALLGRAF Move                move the cursor
  96. ;
  97. ;    move.l    MyWindow(pc),a0
  98. ;    move.l    wd_RPort(a0),a1            rastport
  99. ;    lea    hello_message(pc),a0
  100. ;    moveq    #11,d0
  101. ;    CALLGRAF Text                print something
  102. ;
  103. ;    move.l    MyWindow(pc),a0
  104. ;    move.l    wd_UserPort(a0),a0
  105. ;    move.b    MP_SIGBIT(a0),d1        (misprint in manual)
  106. ;    moveq    #0,d0
  107. ;    bset    d1,d0                do a shift
  108. ;    CALLEXEC Wait
  109.  
  110. ;    moveq    #0,d4                return code
  111.  
  112. * various exit routines that do tidying up, given a return code in d4
  113.  
  114. ;    move.l    MyWindow(pc),a0
  115. ;    CALLINT CloseWindow
  116.  
  117. ;exit_closescr
  118. ;    move.l    MyScreen(pc),a0
  119. ;    CALLINT CloseScreen
  120.  
  121. ;exit_closeall
  122. ;    move.l    _GfxBase(pc),a1
  123. ;    CALLEXEC CloseLibrary
  124.  
  125. ;exit_closeint
  126. ;    move.l    _IntuitionBase(pc),a1
  127. ;    CALLEXEC CloseLibrary
  128.  
  129. ;done:
  130. ;    bra done
  131.  
  132.  move.l #PALETTEBIT,a0
  133.  move.l #COPIEDPAL+4,a1
  134.  move.w #255,d0
  135.  
  136. copydown:
  137.  move.b 1(a0),(a1)
  138.  move.b 3(a0),4(a1)
  139.  move.b 5(a0),8(a1)
  140.  add.w #6,a0
  141.  add.w #12,a1
  142.  dbra d0,copydown
  143.  
  144.  move.w #256,COPIEDPAL
  145.  move.w #0,COPIEDPAL+2
  146. LOOKFORME:
  147.  move.l MyScreen,a0
  148.  lea sc_ViewPort(a0),a0
  149.  move.l #COPIEDPAL,a1
  150.  move.l _GfxBase,a6
  151.  jsr -$372(a6)
  152.  
  153.  move.l MyScreen,a4
  154.  move.w sc_MouseX(a4),d0
  155.  move.w sc_MouseY(a4),d1
  156.  move.w d0,OLDXM
  157.  move.w d1,OLDYM
  158.     
  159.  move.l 4.w,a6
  160.  move.l #doslibname,a1
  161.  moveq #0,d0
  162.  jsr -552(a6)
  163.  move.l d0,doslib
  164.  
  165.  move.l doslib,a6
  166.  move.l #OBJNAME,d1
  167.  move.l #1005,d2
  168.  jsr -30(a6)
  169.  move.l d0,ROTATEDPTS
  170.  
  171.  move.l doslib,a6
  172.  move.l d0,d1
  173.  move.l #POLYGONDATA,d2
  174.  move.l #30000,d3
  175.  jsr -42(a6)
  176.  
  177.  move.l doslib,a6
  178.  move.l ROTATEDPTS,d1
  179.  jsr -36(a6)
  180.  
  181.     
  182. loop:
  183.  
  184.  move.l #POLYGONDATA,a3
  185.  move.w (a3)+,SORTIT
  186.  move.l a3,START_OF_OBJECT
  187.     
  188.  move.w (a3)+,num_points
  189.  move.w (a3)+,d6
  190.  move.w d6,num_frames
  191.  move.l a3,POINTER_TO_POINTERS
  192.  lea (a3,d6.w*4),a3
  193.  move.l a3,LinesPtr
  194.  moveq #0,d5
  195.  moveq #0,d2
  196.  
  197.  move.l POINTER_TO_POINTERS,a4
  198.  move.w (a4,d5.w*4),d2
  199.  add.l START_OF_OBJECT,d2
  200.  move.l d2,PtsPtr
  201.  move.w 2(a4,d5.w*4),d5
  202.  add.l START_OF_OBJECT,d5
  203.  move.l d5,PolyAngPtr
  204.  move.l d2,a3
  205.  move.w num_points,d5
  206.  
  207.  move.l (a3)+,OBJONOFF
  208.  
  209.  move.l a3,PointAngPtr
  210.  add.w d5,d5
  211.  move.w d5,d2
  212.  add.w d5,d5
  213.  add.w d5,d2
  214.  add.w d2,a3
  215.  move.l a3,PtsPtr
  216.  
  217.  move.l MyScreen,a4
  218.  move.w sc_MouseX(a4),d0
  219.  move.w sc_MouseY(a4),d1
  220.  
  221.  sub.w OLDXM,d0
  222.  sub.w OLDYM,d1
  223.  add.w d0,OLDXM
  224.  add.w d1,OLDYM
  225.  
  226.  btst #6,$bfe001
  227.  beq.s .SHIFTABOUT
  228.  
  229.  muls #8190,d0
  230.  divs #320,d0
  231.  add.w d0,YANG
  232.  and.w #8190,YANG
  233.  muls #8190,d1
  234.  divs #320,d1
  235.  and.w #8190,d1
  236.  add.w d1,XANG
  237.  and.w #8190,XANG
  238.  
  239. ; add.w #40,AANG
  240. ; add.w #70,BANG
  241. ; and.w #8191,AANG
  242. ; and.w #8191,BANG
  243.  
  244. ; add.w #60,CANG
  245. ; add.w #90,DANG
  246. ; and.w #8191,CANG
  247. ; and.w #8191,DANG
  248.  
  249.  
  250.  bra .ROTABOUT
  251. .SHIFTABOUT
  252.  
  253.   muls #8190,d0
  254.  divs #320,d0
  255.  add.w d0,BANG
  256.  and.w #8190,BANG
  257.  muls #8190,d1
  258.  divs #320,d1
  259.  and.w #8190,d1
  260.  add.w d1,AANG
  261.  and.w #8190,AANG
  262.  
  263.  
  264. .ROTABOUT
  265.  
  266.  move.w AANG,d1
  267.  move.w BANG,d3
  268. ; cmp.w #2,d6
  269. ; bne.s .notsecrot
  270. ; move.w CANG,d1
  271. ; move.w DANG,d3
  272. ;.notsecrot
  273.  move.l #SINETABLE,a1
  274.  move.w (a1,d1.w),XSIN    ;xsin
  275.  move.w (a1,d3.w),YSIN    ;ysin
  276.  
  277.  add.w #2048,a1
  278.  move.w (a1,d1.w),XCOS    ;xcos
  279.  move.w (a1,d3.w),YCOS    ;ycos
  280.  
  281.  move.w XANG,d1
  282.  move.w YANG,d3
  283. ; cmp.w #2,d6
  284. ; bne.s .notsecrot
  285. ; move.w CANG,d1
  286. ; move.w DANG,d3
  287. ;.notsecrot
  288.  move.l #SINETABLE,a1
  289.  move.w (a1,d1.w),XSIN2    ;xsin
  290.  move.w (a1,d3.w),YSIN2    ;ysin
  291.  
  292.  add.w #2048,a1
  293.  move.w (a1,d1.w),XCOS2    ;xcos
  294.  move.w (a1,d3.w),YCOS2    ;ycos
  295.  
  296.  
  297. ************************************************
  298. ************************************************
  299. ************************************************
  300. ************************************************
  301. ************************************************
  302. ************************************************
  303. ************************************************
  304. ************************************************
  305. ************************************************
  306. ************************************************
  307. ************************************************
  308. ************************************************
  309. ************************************************
  310. ************************************************
  311.  
  312. *SHADOW BUFFER CALCULATION
  313.  
  314.  
  315. ; First, calculate the normal brightnesses
  316. ; for points. NB: -1,-1,-1 = this point not used
  317. ; in gouraud shading.
  318.  
  319.  move.l #NORMBRIGHTS,a2
  320.  move.l PointAngPtr,a0
  321.  move.w num_points,d7
  322.  
  323.  move.l #NORMVECTS,a5
  324.  
  325.  subq #1,d7
  326.  
  327. CALCNORMBRIGHTS:
  328.  
  329.  move.w (a0)+,d0
  330.  move.w (a0)+,d1
  331.  move.w (a0)+,d2
  332.  
  333.  move.w #0,d6
  334.  
  335.  cmp.w #-1,d0
  336.  bne.s .notnot
  337.  cmp.w #-1,d1
  338.  bne.s .notnot
  339.  cmp.w #-1,d2
  340.  bne.s .notnot
  341.  
  342.  move.w #-1,x1
  343.  move.w #-1,y1
  344.  move.w #-1,z1
  345.  bra .dontbother
  346.  
  347. .notnot:
  348.  neg.w d1
  349.  
  350.  move.w d0,d3
  351.  move.w d2,d5
  352.  
  353.  muls YCOS,d0
  354.  muls YSIN,d2
  355.  sub.l d2,d0
  356.  add.l d0,d0
  357.  swap d0
  358. ; asr.l #6,d0    ; new x*512
  359.  
  360.  muls YSIN,d3
  361.  muls YCOS,d5
  362.  add.l d5,d3
  363.  add.l d3,d3
  364.  swap d3
  365.  move.w d3,d2    ; new z
  366.  
  367.  move.w d1,d4
  368.  move.w d2,d5
  369.  muls XCOS,d1
  370.  muls XSIN,d2
  371.  sub.l d2,d1
  372.  add.l d1,d1
  373.  swap d1
  374.  
  375.  muls XSIN,d4
  376.  muls XCOS,d5
  377.  add.l d5,d4
  378.  add.l d4,d4
  379.  swap d4
  380.  move.w d4,d2    ; new z
  381.  
  382.  
  383.  move.w d0,d3
  384.  move.w d2,d5
  385.  
  386.  muls YCOS2,d0
  387.  muls YSIN2,d2
  388.  sub.l d2,d0
  389.  add.l d0,d0
  390.  swap d0
  391.  
  392.  muls YSIN2,d3
  393.  muls YCOS2,d5
  394.  add.l d5,d3    
  395.  add.l d3,d3
  396.  swap d3
  397.  move.w d3,d2    ; new z
  398.  
  399.  move.w d1,d4
  400.  move.w d2,d5
  401.  muls XCOS2,d1
  402.  muls XSIN2,d2
  403.  sub.l d2,d1
  404.  add.l d1,d1
  405.  swap d1
  406.  
  407.  muls XSIN2,d4
  408.  muls XCOS2,d5
  409.  add.l d5,d4
  410.  add.l d4,d4
  411.  swap d4
  412.  
  413.  move.w d0,x1
  414.  move.w d1,y1
  415.  move.w d4,z1
  416.  
  417.  
  418.  move.w d1,d6    ; new y 
  419.  
  420.  asr.w #4,d6
  421.  add.w #20,d6
  422.  
  423.  ble.s .okokok
  424.  
  425.  moveq #0,d6
  426.  
  427. .okokok:
  428.  add.w #$1c,d6
  429.  bge.s .okokokok
  430.  moveq #0,d6
  431. .okokokok:
  432.  
  433.  add.w #64,d6
  434.  
  435. ; 
  436. ; cmp.w #28,d6
  437. ; blt.s .okbig
  438. ; move.w #28,d6
  439. ;.okbig
  440.  
  441. .dontbother:
  442.  move.w x1,(a5)+
  443.  move.w y1,(a5)+
  444.  move.w z1,(a5)+
  445.  move.w d6,(a2)+
  446.  
  447.  dbra d7,CALCNORMBRIGHTS
  448.  
  449.  
  450. ; Next, calculate the point coords for
  451. ; the shadow buffer.
  452.  
  453.  move.l #SHADOWPTS,a2
  454.  move.l PtsPtr,a0
  455.  move.w num_points,d7
  456.  subq #1,d7
  457.  
  458. ROTPTLOPSHAD:
  459.  move.w (a0)+,d0
  460.  move.w d0,d3
  461.  move.w (a0)+,d1
  462.  move.w (a0)+,d2
  463.  move.w d2,d5
  464.  
  465.  muls YCOS,d0
  466.  muls YSIN,d2
  467.  sub.l d2,d0
  468.  add.l d0,d0
  469.  swap d0
  470. ; asr.l #6,d0    ; new x*512
  471.  
  472.  muls YSIN,d3
  473.  muls YCOS,d5
  474.  add.l d5,d3
  475.  add.l d3,d3
  476.  swap d3
  477.  move.w d3,d2    ; new z
  478.  
  479.  move.w d1,d4
  480.  move.w d2,d5
  481.  muls XCOS,d1
  482.  muls XSIN,d2
  483.  sub.l d2,d1
  484.  add.l d1,d1
  485.  swap d1
  486.  
  487.  muls XSIN,d4
  488.  muls XCOS,d5
  489.  add.l d5,d4
  490.  add.l d4,d4
  491.  swap d4
  492.  move.w d4,d2    ; new z
  493.   
  494.  move.w d0,d3
  495.  move.w d2,d5
  496.  
  497.  muls YCOS2,d0
  498.  muls YSIN2,d2
  499.  sub.l d2,d0
  500.  asr.l #6,d0    ; new x*512
  501.  
  502.  muls YSIN2,d3
  503.  muls YCOS2,d5
  504.  add.l d5,d3
  505.  add.l d3,d3
  506.  swap d3
  507.  move.w d3,d2    ; new z
  508.  
  509.  move.w d1,d4
  510.  move.w d2,d5
  511.  muls XCOS2,d1
  512.  muls XSIN2,d2
  513.  sub.l d2,d1
  514.  asr.l #6,d1    ; new y*512
  515.  
  516.  muls XSIN2,d4
  517.  muls XCOS2,d5
  518.  add.l d5,d4
  519.  add.l d4,d4
  520.  swap d4
  521.  move.w d4,d2    ; new z
  522.  
  523.  ext.l d2
  524.  
  525.  move.w XOFF,d5
  526.  ext.l d5
  527.  asl.l #8,d5
  528.  add.l d5,d5
  529.  add.l d5,d0
  530.  
  531.  move.l d0,(a2)+
  532.  move.l d1,(a2)+
  533.  move.w d2,(a2)+
  534.  
  535.  dbra d7,ROTPTLOPSHAD
  536.  
  537.  
  538.  
  539. ***************************************
  540. * Calculate viewer position for specularity..
  541.  
  542.  move.w #0,d0
  543.  move.w #0,d1
  544.  move.w #-1024,d2
  545.  
  546. ; move.w d0,d3
  547. ; move.w d2,d5
  548. ;
  549. ; muls YCOS,d0
  550. ; muls YSIN,d2
  551. ; sub.l d2,d0
  552. ; add.l d0,d0
  553. ; swap d0
  554. ; asr.l #6,d0    ; new x*512
  555. ; 
  556. ; muls YSIN,d3
  557. ; muls YCOS,d5
  558. ; add.l d5,d3
  559. ; add.l d3,d3
  560. ; swap d3
  561. ; move.w d3,d2    ; new z
  562. ;
  563. ; move.w d1,d4
  564. ; move.w d2,d5
  565. ; muls XCOS,d1
  566. ; muls XSIN,d2
  567. ; sub.l d2,d1
  568. ; add.l d1,d1
  569. ; swap d1
  570. ; 
  571. ; muls XSIN,d4
  572. ; muls XCOS,d5
  573. ; add.l d5,d4
  574. ; add.l d4,d4
  575. ; swap d4
  576. ; move.w d4,d2    ; new z
  577.  
  578.  move.w d0,d3
  579.  move.w d2,d5
  580.  
  581.  muls YCOS2,d0
  582.  muls YSIN2,d2
  583.  sub.l d2,d0
  584.  add.l d0,d0
  585.  swap d0
  586.  
  587.  muls YSIN2,d3
  588.  muls YCOS2,d5
  589.  add.l d5,d3    
  590.  add.l d3,d3
  591.  swap d3
  592.  move.w d3,d2    ; new z
  593.  
  594.  move.w d1,d4
  595.  move.w d2,d5
  596.  muls XCOS2,d1
  597.  muls XSIN2,d2
  598.  sub.l d2,d1
  599.  add.l d1,d1
  600.  swap d1
  601. ; asr.l #6,d1    ; new y*512
  602.  
  603.  muls XSIN2,d4
  604.  muls XCOS2,d5
  605.  add.l d5,d4
  606.  add.l d4,d4
  607.  swap d4
  608.  
  609.  move.w d0,x2b
  610.  move.w d1,y2b
  611.  move.w d4,z2b
  612.  
  613. ; Now the specular highlight efforts....
  614.  
  615.  move.l #SPECBRIGHTS,a2
  616.  move.l #NORMVECTS,a1
  617.  
  618.  move.l #SHADOWPTS,a5
  619.  
  620.  move.w num_points,d7
  621.  subq #1,d7
  622.  
  623. CALCSPECBRIGHTS:
  624.  
  625.  move.w (a1)+,x1
  626.  move.w (a1)+,y1
  627.  move.w (a1)+,z1
  628.  
  629.  move.w x2b,d0
  630.  move.l (a5)+,d1
  631.  asr.l #8,d1
  632.  asr.l #1,d1
  633.  sub.w d1,d0
  634.  move.w d0,x2
  635.  move.w y2b,d0
  636.  move.l (a5)+,d1
  637.  asr.l #8,d1
  638.  asr.l #1,d1
  639.  sub.w d1,d0
  640.  move.w d0,y2
  641.  move.w z2b,d0
  642.  sub.w (a5)+,d0
  643.  move.w d0,z2
  644.  
  645.  move.w #0,d6
  646.  
  647.  cmp.w #-1,x1
  648.  bne.s .notnot
  649.  cmp.w #-1,y1
  650.  bne.s .notnot
  651.  cmp.w #-1,z1
  652.  beq .dontbother
  653. .notnot: 
  654.  
  655.  move.w x2,d2
  656.  muls d2,d2
  657.  move.w y2,d1
  658.  muls d1,d1
  659.  add.l d1,d2
  660.  move.w z2,d1
  661.  muls d1,d1
  662.  add.l d1,d2
  663.  
  664.  jsr CALCSQROOT
  665.  
  666.  move.w d2,l2
  667.  
  668.  move.w y1,d0
  669.  muls z2,d0
  670.  move.w y2,d1
  671.  muls z1,d1
  672.  sub.l d1,d0    ; x4
  673.  
  674.  move.w z1,d1
  675.  muls x2,d1
  676.  move.w z2,d2
  677.  muls x1,d2
  678.  sub.l d2,d1    ; y4
  679.  
  680.  move.w x1,d2
  681.  muls y2,d2
  682.  move.w x2,d3
  683.  muls y1,d3
  684.  sub.l d3,d2    ; z4
  685.  
  686.  asr.l #8,d0
  687.  asr.l #8,d1
  688.  asr.l #8,d2
  689.  asr.l #2,d0
  690.  asr.l #2,d1
  691.  asr.l #2,d2
  692.  
  693.  move.w x1,d3
  694.  muls d1,d3
  695.  move.w y1,d4
  696.  muls d0,d4
  697.  sub.l d4,d3
  698.  asr.l #8,d3
  699.  asr.l #1,d3
  700.  add.w z2,d3
  701.  
  702.  muls #1024,d3
  703.  divs l2,d3
  704.  
  705.  move.w d3,z3
  706.  
  707.  move.w y1,d3
  708.  muls d2,d3
  709.  move.w z1,d4
  710.  muls d1,d4
  711.  sub.l d4,d3
  712.  asr.l #8,d3
  713.  asr.l #1,d3
  714.  add.w x2,d3
  715.  muls #1024,d3
  716.  divs l2,d3
  717.  
  718.  move.w d3,x3
  719.  
  720.  move.w z1,d3
  721.  muls d0,d3
  722.  move.w x1,d4
  723.  muls d2,d4
  724.  sub.l d4,d3
  725.  asr.l #8,d3
  726.  asr.l #1,d3
  727.  add.w y2,d3
  728.  muls #1024,d3
  729.  divs l2,d3
  730.  
  731.  move.w d3,y3
  732.  
  733.  move.w z3,d3
  734.  asr.w #4,d3
  735.  add.w #128,d3
  736.  bge.s .okpp
  737.  moveq #0,d3
  738. .okpp
  739.  cmp.w #255,d3
  740.  ble.s .okppp
  741.  move.w #255,d3
  742. .okppp
  743.  
  744.  move.b d3,d6
  745.  lsl.w #8,d6
  746.  
  747.  move.w x3,d3
  748.  asr.w #4,d3
  749.  
  750.  add.w #128,d3
  751.  bge.s .okp
  752.  moveq #0,d3
  753. .okp
  754.  cmp.w #255,d3
  755.  ble.s .okpppp
  756.  move.w #255,d3
  757. .okpppp
  758.  move.b d3,d6
  759.   
  760.  tst.w y3
  761.  blt.s .okpos
  762.  
  763.  move.w x3,d1
  764.  asr.w #4,d1
  765.  move.w z3,d2
  766.  asr.w #4,d2
  767.  
  768.  muls d1,d1
  769.  muls d2,d2
  770.  add.l d1,d2
  771.  jsr CALCSQROOT
  772.  tst.w d2
  773.  beq.s .okpos
  774.  
  775.  move.w d2,d3
  776.  neg.w d3
  777.  add.w #127,d3
  778.  
  779.  move.w z3,d4
  780.  muls d3,d4
  781.  divs d2,d4
  782.  asr.w #4,d4
  783.  add.w #128,d4
  784.  move.b d4,d6
  785.  lsl.w #8,d6
  786.  
  787.  move.w x3,d4
  788.  muls d3,d4
  789.  divs d2,d4
  790.  asr.w #4,d4
  791.  add.w #128,d4
  792.  move.b d4,d6
  793.  
  794. ; neg.w y3
  795.  
  796. .okpos
  797.   
  798. ; add.w y2,d3
  799. ;
  800. ; move.w d3,d6
  801. ;
  802. ; asr.w #4,d6
  803. ; 
  804. ; add.w #30,d6
  805. ; 
  806. ; ble.s .okokok
  807. ; 
  808. ; moveq #0,d6
  809. ; 
  810. ;.okokok:
  811. ; add.w #$1c,d6
  812. ; bge.s .okokokok
  813. ; moveq #0,d6
  814. ;.okokokok:
  815.  
  816. ; 
  817. ; cmp.w #28,d6
  818. ; blt.s .okbig
  819. ; move.w #28,d6
  820. ;.okbig
  821.  
  822. .dontbother:
  823.  move.w d6,(a2)+
  824.  move.w y3,(a2)+
  825.  
  826.  dbra d7,CALCSPECBRIGHTS
  827.  
  828.  
  829.  
  830.  
  831. * NOW THE POINTS FOR ON-SCREENNESS
  832.  
  833.  move.l #ROTATEDPTS,a2
  834.  move.l PtsPtr,a0
  835.  move.w num_points,d7
  836.  subq #1,d7
  837.  
  838. ROTPTLOP:
  839.  
  840.  move.w (a0)+,d0
  841.  move.w d0,d3
  842.  move.w (a0)+,d1
  843.  move.w (a0)+,d2
  844.  move.w d2,d5
  845.  
  846.  
  847.  
  848.  muls YCOS,d0
  849.  muls YSIN,d2
  850.  sub.l d2,d0
  851.  asr.l #6,d0    ; new x*512
  852.  
  853.  muls YSIN,d3
  854.  muls YCOS,d5
  855.  add.l d5,d3
  856.  add.l d3,d3
  857.  swap d3
  858.  move.w d3,d2    ; new z
  859.  
  860.  move.w d1,d4
  861.  move.w d2,d5
  862.  muls XCOS,d1
  863.  muls XSIN,d2
  864.  sub.l d2,d1
  865.  asr.l #6,d1    ; new y*512
  866.  
  867.  muls XSIN,d4
  868.  muls XCOS,d5
  869.  add.l d5,d4
  870.  add.l d4,d4
  871.  swap d4
  872.  move.w d4,d2    ; new z
  873.  
  874.  ext.l d2
  875.  
  876.  move.w XOFF,d5
  877.  ext.l d5
  878.  asl.l #8,d5
  879.  add.l d5,d5
  880.  add.l d5,d0
  881.  
  882.  move.l d0,(a2)+
  883.  move.l d1,(a2)+
  884.  move.w d2,(a2)+
  885.  
  886.  dbra d7,ROTPTLOP
  887.  
  888. ; Now convert the rotated points to the screen:
  889.  
  890.  move.l #ROTATEDPTS,a0
  891.  move.l #ONSCREENPTS,a2
  892.  move.w num_points,d7
  893.  subq #1,d7
  894. CONVERTTOSCREEN:
  895.  move.l (a0)+,d0
  896.  move.l (a0)+,d1
  897.  move.w (a0)+,d2
  898.  add.w ZOFF,d2
  899.  ext.l d2
  900.  
  901.  move.l d0,d3
  902.  asr.l #1,d3
  903.  add.l d3,d0 
  904.  move.l d1,d3
  905.  asr.l #1,d3
  906.  add.l d3,d1 
  907.  
  908.  divs d2,d0
  909.  divs d2,d1
  910.  add.w #160*4,d0
  911.  add.w #128*4,d1
  912.  move.w d0,(a2)+
  913.  move.w d1,(a2)+
  914.  dbra d7,CONVERTTOSCREEN
  915.  
  916.  move.w #254,HIGHPOLY
  917.  
  918.  move.l LinesPtr,a1
  919.  move.l #PartBuffer,a0
  920.  move.l a0,a2
  921.  move.w #15,d0
  922. clrpartbuffSHAD:
  923.  move.l #$80000001,(a2)+
  924.  move.l #$80000001,(a2)+
  925.  move.l #$80000001,(a2)+
  926.  move.l #$80000001,(a2)+
  927.  dbra d0,clrpartbuffSHAD
  928.  
  929.  move.l #SHADOWPTS,a2
  930.  move.l OBJONOFF,d5
  931.  
  932.  move.w #0,d4
  933.  tst.w SORTIT
  934.  bne.s PutInPartsSHAD
  935.  
  936.  
  937. putinunsortedSHAD:
  938.  move.w (a1)+,d7
  939.  blt doneallpartsSHAD
  940.  lsr.l #1,d5
  941.  bcs.s .yeson
  942.  addq #2,a1
  943.  bra putinunsortedSHAD
  944. .yeson:
  945.  
  946.  move.w (a1)+,d6
  947.  move.l #0,(a0)+
  948.  move.w d7,(a0)+
  949.  move.w d4,(a0)+
  950.  addq #1,d4
  951.  bra putinunsortedSHAD
  952.  
  953. PutInPartsSHAD
  954.  move.w (a1)+,d7
  955.  blt doneallpartsSHAD
  956.  
  957.  lsr.l #1,d5
  958.  bcs.s .yeson
  959.  addq #2,a1
  960.  bra PutInPartsSHAD
  961. .yeson:
  962.  
  963.  move.w (a1)+,d6
  964.  move.l 4(a2,d6.w),d0
  965.  add.l #200000,d0
  966.  
  967.  move.l #PartBuffer-8,a0
  968.  
  969. stillfrontSHAD
  970.  addq #8,a0
  971.  cmp.l (a0),d0
  972.  blt stillfrontSHAD
  973.  move.l #endparttab-8,a5
  974. domoreshiftSHAD:
  975.  move.l -8(a5),(a5)
  976.  move.l -4(a5),4(a5)
  977.  subq #8,a5
  978.  cmp.l a0,a5
  979.  bgt.s domoreshiftSHAD
  980.  
  981.  move.l d0,(a0)
  982.  move.w d7,4(a0)
  983.  move.w d4,6(a0)
  984.  addq #1,d4
  985.  bra PutInPartsSHAD
  986.  
  987. doneallpartsSHAD:
  988.  
  989.  move.l #PartBuffer,a0
  990.  
  991. PartLoopSHAD
  992.  move.l (a0)+,d7
  993.  blt nomorepartsSHAD
  994.  
  995.  move.l #SAVEHIGHS,a2
  996.  move.w 2(a0),d0
  997.  move.w HIGHPOLY,(a2,d0.w*2)
  998.  
  999.  moveq #0,d0
  1000.  move.w (a0),d0
  1001.  addq #4,a0
  1002.  add.l START_OF_OBJECT,d0
  1003.  move.l d0,a1
  1004.  
  1005. polylooSHAD:
  1006.  
  1007.  tst.w (a1)
  1008.  blt.s nomorepolysSHAD
  1009.  movem.l a0/a1/d7,-(a7)
  1010.  bsr doaSHADEpoly
  1011.  movem.l (a7)+,a0/a1/d7
  1012.  
  1013.  move.w (a1),d0
  1014.  lea 18(a1,d0.w*4),a1
  1015.  
  1016.  bra.s polylooSHAD
  1017. nomorepolysSHAD:
  1018.  sub.w #1,HIGHPOLY
  1019.  bra PartLoopSHAD
  1020. nomorepartsSHAD:
  1021.  
  1022. *******************************************
  1023. * Now the on-screen bit...
  1024. *******************************************
  1025.  
  1026.  move.l LinesPtr,a1
  1027.  move.l #PartBuffer,a0
  1028.  move.l a0,a2
  1029.  move.w #15,d0
  1030. clrpartbuff:
  1031.  move.l #$80000001,(a2)+
  1032.  move.l #$80000001,(a2)+
  1033.  move.l #$80000001,(a2)+
  1034.  move.l #$80000001,(a2)+
  1035.  dbra d0,clrpartbuff
  1036.  
  1037.  move.l #ROTATEDPTS,a2
  1038.  move.l OBJONOFF,d5
  1039.  
  1040.  moveq #0,d4
  1041.  
  1042.  tst.w SORTIT
  1043.  bne.s PutInParts
  1044.  
  1045. putinunsorted:
  1046.  move.w (a1)+,d7
  1047.  blt doneallparts
  1048.  lsr.l #1,d5
  1049.  bcs.s .yeson
  1050.  addq #2,a1
  1051.  bra putinunsorted
  1052. .yeson:
  1053.  
  1054.  move.w (a1)+,d6
  1055.  move.l #0,(a0)+
  1056.  move.w d7,(a0)+
  1057.  move.w d4,(a0)+
  1058.  
  1059.  addq #1,d4
  1060.  bra putinunsorted
  1061.  
  1062. PutInParts
  1063.  move.w (a1)+,d7
  1064.  blt doneallparts
  1065.  
  1066.  lsr.l #1,d5
  1067.  bcs.s .yeson
  1068.  addq #2,a1
  1069.  bra PutInParts
  1070. .yeson:
  1071.  
  1072.  move.w (a1)+,d6
  1073.  move.l (a2,d6.w),d0
  1074.  asr.l #8,d0
  1075.  asr.l #2,d0
  1076.  muls d0,d0
  1077.  move.l 4(a2,d6.w),d2
  1078.  asr.l #8,d2
  1079.  asr.l #2,d2
  1080.  muls d2,d2
  1081.  add.l d2,d0 
  1082.  move.w 8(a2,d6.w),d2
  1083.  add.w #1024,d2
  1084.  muls d2,d2
  1085.  add.l d2,d0
  1086.  
  1087.  move.l #PartBuffer-8,a0
  1088.  
  1089. stillfront
  1090.  addq #8,a0
  1091.  cmp.l (a0),d0
  1092.  blt stillfront
  1093.  move.l #endparttab-8,a5
  1094. domoreshift:
  1095.  move.l -8(a5),(a5)
  1096.  move.l -4(a5),4(a5)
  1097.  subq #8,a5
  1098.  cmp.l a0,a5
  1099.  bgt.s domoreshift
  1100.  
  1101.  move.l d0,(a0)
  1102.  move.w d7,4(a0)
  1103.  move.w d4,6(a0)
  1104.  addq #1,d4
  1105.  bra PutInParts
  1106.  
  1107. doneallparts:
  1108.  
  1109.  move.l #PartBuffer,a0
  1110.  
  1111. PartLoop
  1112.  move.l (a0)+,d7
  1113.  blt nomoreparts
  1114.  
  1115.  move.l #SAVEHIGHS,a2
  1116.  move.w 2(a0),d0
  1117.  move.w (a2,d0.w*2),HIGHPOLY
  1118.  
  1119.  moveq #0,d0
  1120.  move.w (a0),d0
  1121.  addq #4,a0
  1122.  add.l START_OF_OBJECT,d0
  1123.  move.l d0,a1
  1124.  
  1125. polyloo:
  1126.  
  1127.  tst.w (a1)
  1128.  blt.s nomorepolys
  1129.  movem.l a0/a1/d7,-(a7)
  1130.  bsr doapoly
  1131.  movem.l (a7)+,a0/a1/d7
  1132.  
  1133.  move.w (a1),d0
  1134.  lea 18(a1,d0.w*4),a1
  1135.  
  1136.  bra.s polyloo
  1137. nomorepolys:
  1138.  sub.w #1,HIGHPOLY
  1139.  bra PartLoop
  1140. nomoreparts:
  1141.  
  1142. NOPOLYS:
  1143.  
  1144. ; btst #6,$bfe001
  1145. ; beq.s .SHOWSHADOW
  1146.  
  1147.  move.l FASTBUFFER,a0
  1148.  add.l #40*320+64,a0
  1149.  move.l #RAWSCRN,a1
  1150.  add.l #40*40+8,a1
  1151.  move.l #(24)-1,d0
  1152.  move.l #175,d1
  1153.  move.w #128,d2
  1154.  move.w #16,d3
  1155.  moveq #0,d4
  1156.  moveq #0,d5
  1157.  jsr CHUNKYTOPLANAR 
  1158.  
  1159.  bra .SHOWNSCRN
  1160.  
  1161. .SHOWSHADOW
  1162.  
  1163.  move.l #SHADOWBUFFER,a0
  1164.  add.l #40*256,a0
  1165.  move.l #RAWSCRN,a1
  1166.  add.l #40*40,a1
  1167.  move.l #(256/8)-1,d0
  1168.  move.l #175,d1
  1169.  move.w #0,d2
  1170.  move.w #8,d3
  1171.  moveq #0,d4
  1172.  moveq #0,d5
  1173.  jsr CHUNKYTOPLANAR 
  1174.  
  1175. .SHOWNSCRN:
  1176.  
  1177.  move.l FASTBUFFER,a0
  1178.  move.l #NEBBIE,a1
  1179.  add.l #40*320+64,a0
  1180.  
  1181.  move.w #175,d0
  1182. clrchunk:
  1183.  move.l (a1)+,(a0)+
  1184.  move.l (a1)+,(a0)+
  1185.  move.l (a1)+,(a0)+
  1186.  move.l (a1)+,(a0)+
  1187.  move.l (a1)+,(a0)+
  1188.  move.l (a1)+,(a0)+
  1189.  move.l (a1)+,(a0)+
  1190.  move.l (a1)+,(a0)+
  1191.  move.l (a1)+,(a0)+
  1192.  move.l (a1)+,(a0)+
  1193.  move.l (a1)+,(a0)+
  1194.  move.l (a1)+,(a0)+
  1195.  move.l (a1)+,(a0)+
  1196.  move.l (a1)+,(a0)+
  1197.  move.l (a1)+,(a0)+
  1198.  move.l (a1)+,(a0)+
  1199.  move.l (a1)+,(a0)+
  1200.  move.l (a1)+,(a0)+
  1201.  move.l (a1)+,(a0)+
  1202.  move.l (a1)+,(a0)+
  1203.  move.l (a1)+,(a0)+
  1204.  move.l (a1)+,(a0)+
  1205.  move.l (a1)+,(a0)+
  1206.  move.l (a1)+,(a0)+
  1207.  move.l (a1)+,(a0)+
  1208.  move.l (a1)+,(a0)+
  1209.  move.l (a1)+,(a0)+
  1210.  move.l (a1)+,(a0)+
  1211.  move.l (a1)+,(a0)+
  1212.  move.l (a1)+,(a0)+
  1213.  move.l (a1)+,(a0)+
  1214.  move.l (a1)+,(a0)+
  1215.  move.l (a1)+,(a0)+
  1216.  move.l (a1)+,(a0)+
  1217.  move.l (a1)+,(a0)+
  1218.  move.l (a1)+,(a0)+
  1219.  move.l (a1)+,(a0)+
  1220.  move.l (a1)+,(a0)+
  1221.  move.l (a1)+,(a0)+
  1222.  move.l (a1)+,(a0)+
  1223.  move.l (a1)+,(a0)+
  1224.  move.l (a1)+,(a0)+
  1225.  move.l (a1)+,(a0)+
  1226.  move.l (a1)+,(a0)+
  1227.  move.l (a1)+,(a0)+
  1228.  move.l (a1)+,(a0)+
  1229.  move.l (a1)+,(a0)+
  1230.  move.l (a1)+,(a0)+
  1231.  add.w #(320-192),a0
  1232.  dbra d0,clrchunk
  1233.  
  1234.  move.l #SHADOWBUFFER,a0
  1235.  move.l #-1,d1
  1236.  move.l #-1,d2
  1237.  move.w #15,d0
  1238. ;clrshad:
  1239. ; move.w #15,d5
  1240. ;innner
  1241. ; move.l d2,(a0)+
  1242. ; move.l d2,(a0)+
  1243. ; move.l d2,(a0)+
  1244. ; move.l d2,(a0)+
  1245. ; move.l d1,(a0)+
  1246. ; move.l d1,(a0)+
  1247. ; move.l d1,(a0)+
  1248. ; move.l d1,(a0)+
  1249. ; move.l d2,(a0)+
  1250. ; move.l d2,(a0)+
  1251. ; move.l d2,(a0)+
  1252. ; move.l d2,(a0)+
  1253. ; move.l d1,(a0)+
  1254. ; move.l d1,(a0)+
  1255. ; move.l d1,(a0)+
  1256. ; move.l d1,(a0)+
  1257. ; move.l d2,(a0)+
  1258. ; move.l d2,(a0)+
  1259. ; move.l d2,(a0)+
  1260. ; move.l d2,(a0)+
  1261. ; move.l d1,(a0)+
  1262. ; move.l d1,(a0)+
  1263. ; move.l d1,(a0)+
  1264. ; move.l d1,(a0)+
  1265. ; move.l d2,(a0)+
  1266. ; move.l d2,(a0)+
  1267. ; move.l d2,(a0)+
  1268. ; move.l d2,(a0)+
  1269. ; move.l d1,(a0)+
  1270. ; move.l d1,(a0)+
  1271. ; move.l d1,(a0)+
  1272. ; move.l d1,(a0)+
  1273. ; move.l d2,(a0)+
  1274. ; move.l d2,(a0)+
  1275. ; move.l d2,(a0)+
  1276. ; move.l d2,(a0)+
  1277. ; move.l d1,(a0)+
  1278. ; move.l d1,(a0)+
  1279. ; move.l d1,(a0)+
  1280. ; move.l d1,(a0)+
  1281. ; move.l d2,(a0)+
  1282. ; move.l d2,(a0)+
  1283. ; move.l d2,(a0)+
  1284. ; move.l d2,(a0)+
  1285. ; move.l d1,(a0)+
  1286. ; move.l d1,(a0)+
  1287. ; move.l d1,(a0)+
  1288. ; move.l d1,(a0)+
  1289. ; move.l d2,(a0)+
  1290. ; move.l d2,(a0)+
  1291. ; move.l d2,(a0)+
  1292. ; move.l d2,(a0)+
  1293. ; move.l d1,(a0)+
  1294. ; move.l d1,(a0)+
  1295. ; move.l d1,(a0)+
  1296. ; move.l d1,(a0)+
  1297. ; move.l d2,(a0)+
  1298. ; move.l d2,(a0)+
  1299. ; move.l d2,(a0)+
  1300. ; move.l d2,(a0)+
  1301. ; move.l d1,(a0)+
  1302. ; move.l d1,(a0)+
  1303. ; move.l d1,(a0)+
  1304. ; move.l d1,(a0)+
  1305. ; dbra d5,innner
  1306. ; exg d1,d2
  1307. ;
  1308. ; dbra d0,clrshad
  1309.  
  1310.  
  1311.  
  1312.     btst #7,$bfe001
  1313.     beq.s exit_closescr
  1314.  
  1315.  
  1316.     add.l #$8000,lmxoff
  1317.     cmp.l #40*65536,lmxoff
  1318.     blt.s .oksm
  1319.     sub.l #40*65536,lmxoff    
  1320. .oksm
  1321.  
  1322.     bra loop
  1323.     
  1324. lmxoff: dc.l 0
  1325.  
  1326. exit_closescr
  1327.     move.l    MyScreen(pc),a0
  1328.     CALLINT CloseScreen
  1329.  
  1330. exit_closeall
  1331.     move.l    _GfxBase(pc),a1
  1332.     CALLEXEC CloseLibrary
  1333.  
  1334. exit_closeint
  1335.     move.l    _IntuitionBase(pc),a1
  1336.     CALLEXEC CloseLibrary
  1337.  
  1338. exit_false
  1339.     move.l    #0,d0                return code
  1340.     rts
  1341.  
  1342. TESTTAB: ds.w 30
  1343.  
  1344. ************************************************
  1345. * SUBROUTINES HERE. ****************************
  1346. ************************************************
  1347.  
  1348.  
  1349. **********************************************************
  1350.  
  1351. * the definition of the screen - note that in assembler you
  1352. * MUST get the sizes of these fields correct, by consulting either
  1353. * the RKM or the header files
  1354.  
  1355.  
  1356. MyNewScreen    dc.w    0,0        left, top
  1357.         dc.w    320,256        width, height
  1358.         dc.w    8        depth
  1359.         dc.b    0,1        pens
  1360.         dc.w    0        viewmodes
  1361.         dc.w    CUSTOMSCREEN    type
  1362.         dc.l    MyFont        font
  1363.         dc.l    screen_title    title
  1364.         dc.l    0        gadgets
  1365.         dc.l    0        bitmap
  1366.  
  1367. * my font definition
  1368. MyFont    dc.l    font_name
  1369.     dc.w    TOPAZ_SIXTY
  1370.     dc.b    FS_NORMAL
  1371.     dc.b    FPF_ROMFONT
  1372.  
  1373. * the variables
  1374. _IntuitionBase    dc.l    0        Intuition lib pointer
  1375. _GfxBase    dc.l    0        graphics lib pointer
  1376. MyScreen        dc.l    0
  1377. MyWindow        dc.l    0
  1378. MyNewWindow    ds.b    nw_SIZE        a buffer
  1379.  
  1380.  
  1381. * some strings
  1382. int_name    INTNAME
  1383. graf_name    GRAFNAME
  1384. hello_message    dc.b    'Hello World'
  1385.  
  1386. * these are C strings, so have to be null terminated
  1387. screen_title    dc.b    'My Own Screen',0
  1388. font_name    dc.b    'topaz.font',0
  1389. window_title    dc.b    'A Simple Window',0
  1390.  
  1391.  even
  1392.  
  1393.  
  1394. doaSHADEpoly:
  1395.  
  1396.  move.w (a1)+,d7    ; sides to draw
  1397.  addq #2,a1        ; avoid holes
  1398.  
  1399.  move.l #SHADOWPTS,a3
  1400.  
  1401.  move.w (a1),d0
  1402.  move.w 4(a1),d1
  1403.  move.w 8(a1),d2
  1404.  muls #10,d0
  1405.  muls #10,d1
  1406.  muls #10,d2
  1407.  move.w 8(a3,d0.w),d3
  1408.  move.w 8(a3,d1.w),d4
  1409.  move.w 8(a3,d2.w),d5
  1410.  move.l (a3,d0.w),d0
  1411.  move.l (a3,d1.w),d1
  1412.  move.l (a3,d2.w),d2
  1413.  asr.l #8,d0
  1414.  asr.l #8,d1
  1415.  asr.l #8,d2
  1416.  asr.l #1,d0
  1417.  asr.l #1,d1
  1418.  asr.l #1,d2
  1419.  
  1420.  sub.w d1,d0
  1421.  sub.w d1,d2
  1422.  sub.w d4,d3
  1423.  sub.w d4,d5
  1424.  muls d3,d2
  1425.  muls d5,d0
  1426.  sub.l d0,d2
  1427.  bge SHADpolybehind
  1428.  
  1429.  
  1430.  
  1431.  move.w #20000,d4    ; top
  1432.  move.w #-20000,d5    ; bottom
  1433.  move.l #UVCOORDS,a4
  1434.  
  1435. putinlinesSHAD:
  1436.  move.w (a1),d0
  1437.  move.w 4(a1),d1
  1438.  
  1439.  moveq #0,d2
  1440.  move.b 2(a1),d2    ; one end U
  1441.  move.w d2,2(a4,d0.w*4)
  1442.  move.b 3(a1),d2    ; one end V
  1443.  move.w d2,(a4,d0.w*4)
  1444.  move.b 6(a1),d2    ; two end U
  1445.  move.w d2,2(a4,d1.w*4)
  1446.  move.b 7(a1),d2    ; two end V
  1447.  move.w d2,(a4,d1.w*4)
  1448.  
  1449.  move.w d0,d2
  1450.  muls #10,d2
  1451.  move.w 8(a3,d2.w),d2    ; Z
  1452.  
  1453.  cmp.w d2,d4
  1454.  ble.s .oktop
  1455.  move.w d2,d4
  1456. .oktop
  1457.  cmp.w d2,d5
  1458.  bge.s .okbot
  1459.  move.w d2,d5
  1460. .okbot
  1461.  
  1462.  movem.l d4/d5/d7/a1/a3/a4,-(a7)
  1463.  bsr SIMPLESHADLINE
  1464.  movem.l (a7)+,d4/d5/d7/a1/a3/a4
  1465.  addq #4,a1
  1466.  dbra d7,putinlinesSHAD
  1467.  addq #4,a1
  1468.   
  1469.  move.w (a1)+,TEXTUREADD
  1470.  
  1471.  asr.w #2,d4
  1472.  asr.w #2,d5
  1473.  add.w #128,d4
  1474.  add.w #128,d5
  1475.  move.w d4,TOPLINE
  1476.  move.w d5,BOTLINE
  1477.  
  1478. * Now draw the shadow polygon....
  1479.  
  1480.  move.l #SHADOWBUFFER,a2
  1481.  move.l #LEFTUVS,a0
  1482.  move.w TOPLINE,d0
  1483.  move.w BOTLINE,d1
  1484.  sub.w d0,d1
  1485.  asl.w #3,d0
  1486.  add.w d0,a0
  1487.  muls #(512/8),d0
  1488.  add.l d0,a2    ; pointer to screen line.
  1489.  
  1490.  subq #1,d1
  1491.  blt NOPOLYGONSHAD
  1492.  
  1493. DOAHORLINESHAD:
  1494.  swap d1
  1495.  
  1496.  move.w RIGHTUVS-LEFTUVS(a0),d0
  1497.  move.w (a0)+,d7
  1498.  sub.w d7,d0
  1499.  blt NOPOLYGONSHAD
  1500.  
  1501.  move.l a2,-(a7)
  1502.  
  1503. ; asr.w #2,d0
  1504. ; asr.w #2,d7
  1505.  lea (a2,d7.w*2),a2
  1506.  ext.l d0
  1507.  addq #1,d0
  1508.  
  1509.  move.w RIGHTUVS-LEFTUVS(a0),d7
  1510.  move.w (a0)+,d4
  1511.  swap d7
  1512.  clr.w d7
  1513.  swap d4
  1514.  clr.w d4
  1515.  sub.l d4,d7
  1516.  divs.l d0,d7
  1517.  move.l d7,a5
  1518.  
  1519.  move.w RIGHTUVS-LEFTUVS(a0),d7
  1520.  swap d7
  1521.  clr.w d7
  1522.  move.w (a0)+,d5
  1523.  swap d5
  1524.  clr.w d5
  1525.  sub.l d5,d7
  1526.  divs.l d0,d7
  1527.  move.l d7,a6
  1528.  
  1529.  move.w RIGHTUVS-LEFTUVS(a0),d7
  1530.  swap d7
  1531.  clr.w d7
  1532.  move.w (a0)+,d6
  1533.  swap d6
  1534.  clr.w d6
  1535.  sub.l d6,d7
  1536.  divs.l d0,d7
  1537.  move.l d7,a3
  1538.  
  1539.  move.l a0,-(a7)
  1540.  move.l d1,-(a7)
  1541.  move.l #TEXTURES,a0
  1542.  move.w TEXTUREADD,d7
  1543.  bge.s .okaddtes3
  1544.  and.w #$7fff,d7
  1545.  add.l #65536*4,a0
  1546. .okaddtes3:
  1547.  ext.l d7
  1548. ; add.l d7,d7
  1549.  asl.l #8,d7
  1550.  add.l d7,a0
  1551.  move.w #0,d7
  1552.  
  1553.  subq #1,d0
  1554.  
  1555. ; d0=xdist
  1556. ; d4=U  a5=DU
  1557. ; d5=V  a6=DV
  1558. ; d6=Y  a3=DY
  1559.  moveq #0,d1
  1560.  
  1561.  swap d6
  1562.  
  1563. PLOTADOT:
  1564.  
  1565. .across
  1566.  
  1567. ; swap d4
  1568. ; swap d5
  1569. ; move.w d4,d2
  1570. ; lsl.w #8,d2
  1571. ; swap d4
  1572. ; move.b d5,d2
  1573. ; add.l a5,d4
  1574. ; swap d5
  1575. ; add.l a6,d5
  1576.  
  1577.  
  1578. ; swap d6
  1579. ; move.b (a2)+,d1
  1580. ; tst.b 1(a0,d2.w*8)
  1581. ; beq.s .noplottt
  1582.  move.b d6,(a2)
  1583.  addq #2,a2
  1584.  
  1585.  dbra d0,.across
  1586.  bra.s .plaster
  1587.  
  1588. .noplottt:
  1589.  addq #1,a2
  1590.  dbra d0,.across
  1591.  
  1592. .plaster:
  1593.  
  1594.  move.l (a7)+,d1
  1595.  move.l (a7)+,a0
  1596.  move.l (a7)+,a2
  1597.  
  1598. .noline:
  1599.  add.w #512,a2
  1600.  
  1601.  swap d1
  1602.  dbra d1,DOAHORLINESHAD
  1603.  
  1604. NOPOLYGONSHAD:
  1605.  
  1606. SHADpolybehind:
  1607.  rts
  1608.  
  1609.  
  1610. ************************************************
  1611.  
  1612. LU: dc.w 0
  1613. LV: dc.w 0
  1614. RU: dc.w 0
  1615. RV: dc.w 0
  1616.     
  1617. SIMPLESHADLINE:
  1618.  move.l #SHADOWPTS,a1
  1619.  
  1620.  move.l #UVCOORDS,a2
  1621.  move.w (a2,d0.w*4),LU
  1622.  move.w 2(a2,d0.w*4),LV
  1623.  move.w (a2,d1.w*4),RU
  1624.  move.w 2(a2,d1.w*4),RV
  1625.  
  1626.  muls #10,d0
  1627.  muls #10,d1
  1628.  move.w 8(a1,d0.w),d2        ;fz
  1629.  move.w 8(a1,d1.w),d7        ;sz
  1630.  ext.l d2
  1631.  ext.l d7
  1632.  
  1633.  move.l #LEFTUVS,a3
  1634.  asr.l #2,d2
  1635.  asr.l #2,d7
  1636.  cmp.l d2,d7 
  1637.  beq .noline
  1638.  
  1639.  bgt.s .lineonright
  1640. .lineonleft:
  1641.  move.l #RIGHTUVS,a3
  1642.  exg d0,d1
  1643.  exg d2,d7
  1644.  
  1645.  move.l LU,d5
  1646.  move.l RU,LU
  1647.  move.l d5,RU
  1648.  
  1649. .lineonright:
  1650.  
  1651.  sub.w d2,d7
  1652.  add.w #128,d2
  1653.  lea (a3,d2.w*8),a3
  1654.  
  1655.  move.w d7,YDIFF
  1656.  
  1657.  move.l (a1,d0.w),d3        ;fx
  1658.  move.l (a1,d1.w),d7        ;sx
  1659.  
  1660.  asl.l #5,d3
  1661.  asl.l #5,d7
  1662.  
  1663.  sub.l d3,d7
  1664.  divs.l YDIFF-2,d7
  1665.  move.l d7,a0    ; dx
  1666.  
  1667.  move.l #ROTATEDPTS,a1
  1668.  
  1669.  move.w LU,d4
  1670.  move.w LV,d5
  1671.  move.w RU,d6
  1672.  move.w RV,d7
  1673.  
  1674.  sub.w d4,d6
  1675.  sub.w d5,d7
  1676.  swap d4
  1677.  swap d5
  1678.  clr.w d4
  1679.  clr.w d5
  1680.  swap d6
  1681.  swap d7
  1682.  clr.w d6
  1683.  clr.w d7
  1684.  
  1685.  divs.l YDIFF-2,d6
  1686.  divs.l YDIFF-2,d7
  1687.  
  1688.  move.l d6,a4
  1689.  move.l d7,a5
  1690.  
  1691. ; asl.w #4,d0
  1692. ; asl.w #4,d1
  1693.  
  1694.  move.l 4(a1,d0.w),d6
  1695.  move.l 4(a1,d1.w),d7
  1696.  asl.l #5,d6
  1697.  asl.l #5,d7
  1698.  sub.l d6,d7
  1699.  divs.l YDIFF-2,d7
  1700.  exg d7,a6
  1701.  exg d7,d6
  1702.  
  1703.  move.l YDIFF-2,d1
  1704.  subq #1,d1
  1705.  
  1706. ; d3=x a0=dx
  1707. ; d4=u a4=du
  1708. ; d5=v a5=dv
  1709. ; d7=y a6=dy
  1710. ; d1=dz
  1711.  
  1712.  move.w HIGHPOLY,d7
  1713.  
  1714.  add.l #128*65536,d3
  1715. ; add.l #128*65536,d7
  1716.  
  1717. .PUTINLINE:
  1718.  swap d3
  1719.  move.w d3,(a3)+
  1720.  swap d3
  1721.  add.l a0,d3
  1722.  swap d4
  1723.  move.w d4,(a3)+
  1724.  swap d4
  1725.  swap d5
  1726.  add.l a4,d4
  1727.  move.w d5,(a3)+
  1728.  swap d5
  1729.  add.l a5,d5
  1730. ; swap d7
  1731.  move.w d7,(a3)+
  1732. ; swap d7
  1733. ; add.l a6,d7
  1734.  dbra d1,.PUTINLINE
  1735.  
  1736. .noline:
  1737.  rts
  1738.  
  1739. BCOS: dc.w 0
  1740. BSIN: dc.w 0
  1741. ACOS: dc.w 0
  1742. ASIN: dc.w 0
  1743. FSX: dc.w 0
  1744. FSY: dc.w 0
  1745. SSX: dc.w 0
  1746. SSY: dc.w 0
  1747.  
  1748. **************************************************
  1749.  
  1750. doapoly:
  1751.  
  1752.  move.w (a1)+,d7    ; sides to draw
  1753.  addq #2,a1        ; avoid holes
  1754.  move.w 12(a1,d7.w*4),pregour
  1755.  
  1756.  move.l #ONSCREENPTS,a3
  1757.  
  1758.  move.w (a1),d0
  1759.  move.w 4(a1),d1
  1760.  move.w 8(a1),d2
  1761.  move.w 2(a3,d0.w*4),d3
  1762.  move.w 2(a3,d1.w*4),d4
  1763.  move.w 2(a3,d2.w*4),d5
  1764.  move.w (a3,d0.w*4),d0
  1765.  move.w (a3,d1.w*4),d1
  1766.  move.w (a3,d2.w*4),d2
  1767.  
  1768.  sub.w d1,d0
  1769.  sub.w d1,d2
  1770.  sub.w d4,d3
  1771.  sub.w d4,d5
  1772.  muls d3,d2
  1773.  muls d5,d0
  1774.  sub.l d0,d2
  1775.  ble polybehind
  1776.  
  1777. ; Now we must rotate the polygons coordinates in
  1778. ; the specular map so that the texturemap is vertical
  1779. ; relative to the specular map and so that bump-
  1780. ; mapping can take place unerroneously!
  1781.  
  1782. ; movem.l d0-d7/a0-a6,-(a7)
  1783.  
  1784.  move.w #0,BCOS
  1785.  move.w #128*128,ACOS
  1786.  move.w #0,BSIN
  1787.  move.w #0,ASIN
  1788.  
  1789. ; bra .NOROT
  1790.  
  1791. ; First calculate angle B
  1792.  
  1793.  move.l #SPECBRIGHTS,a3
  1794.  
  1795.  move.w (a1),d0
  1796.  moveq #0,d5
  1797.  moveq #0,d6
  1798.  move.b (a3,d0.w*4),d5
  1799.  move.b 1(a3,d0.w*4),d6
  1800.  move.w 4(a1),d0
  1801.  moveq #0,d3
  1802.  moveq #0,d4
  1803.  move.b (a3,d0.w*4),d3
  1804.  move.b 1(a3,d0.w*4),d4
  1805.  sub.w d5,d3
  1806.  sub.w d6,d4
  1807.  
  1808.  move.w d3,d1
  1809.  move.w d4,d2
  1810.  muls d1,d1
  1811.  muls d2,d2
  1812.  add.l d1,d2
  1813.  jsr CALCSQROOT
  1814.  tst.w d2
  1815.  beq .NOROT
  1816.  
  1817.  ext.l d3
  1818.  asl.l #7,d3
  1819.  ext.l d4
  1820.  asl.l #7,d4
  1821.  divs d2,d3
  1822.  divs d2,d4
  1823.  move.w d3,BCOS
  1824.  neg.w d4
  1825.  move.w d4,BSIN
  1826.  
  1827.  moveq #0,d3
  1828.  move.b 2(a1),d3
  1829.  moveq #0,d4
  1830.  move.b 3(a1),d4
  1831.  moveq #0,d5
  1832.  move.b 2+4(a1),d5
  1833.  moveq #0,d6
  1834.  move.b 3+4(a1),d6
  1835.  
  1836.  sub.w d3,d5
  1837.  sub.w d4,d6
  1838.  
  1839.  move.w d5,d1
  1840.  move.w d6,d2
  1841.  muls d1,d1
  1842.  muls d2,d2
  1843.  add.l d1,d2
  1844.  jsr CALCSQROOT
  1845.  tst.w d2
  1846.  beq.s .NOROT
  1847.  
  1848.  ext.l d5
  1849.  ext.l d6
  1850.  asl.l #7,d5
  1851.  asl.l #7,d6
  1852.  divs d2,d5
  1853.  divs d2,d6
  1854.  move.w d5,ACOS
  1855.  neg.w d6
  1856.  move.w d6,ASIN
  1857.  
  1858.  move.w ACOS,d4
  1859.  move.w ASIN,d5
  1860.  move.w d4,d2
  1861.  move.w d5,d3
  1862.  muls BCOS,d2
  1863.  muls BSIN,d3
  1864.  sub.l d3,d2
  1865.  muls BSIN,d4
  1866.  muls BCOS,d5
  1867.  add.l d5,d4
  1868.  move.w d2,ACOS
  1869.  move.w d4,ASIN
  1870.  
  1871. .NOROT:
  1872. ; movem.l (a7)+,d0-d7/a0-a6
  1873.  
  1874.  move.l #ONSCREENPTS,a3
  1875.  
  1876.  move.w #20000,d4    ; top
  1877.  move.w #-20000,d5    ; bottom
  1878.  move.l #UVCOORDS,a4
  1879.  
  1880.  move.l a1,a0
  1881.  
  1882. putinlines:
  1883.  move.w (a1),d0
  1884.  move.w 4(a1),d1
  1885.  
  1886.  moveq #0,d2
  1887.  move.b 2(a1),d2    ; one end U
  1888.  move.w d2,2(a4,d0.w*4)
  1889.  move.b 3(a1),d2    ; one end V
  1890.  move.w d2,(a4,d0.w*4)
  1891.  move.b 6(a1),d2    ; two end U
  1892.  move.w d2,2(a4,d1.w*4)
  1893.  move.b 7(a1),d2    ; two end V
  1894.  move.w d2,(a4,d1.w*4)
  1895.  
  1896.  move.w 2(a3,d0.w*4),d2    ; Z
  1897.  
  1898.  cmp.w d2,d4
  1899.  ble.s .oktop
  1900.  move.w d2,d4
  1901. .oktop
  1902.  cmp.w d2,d5
  1903.  bge.s .okbot
  1904.  move.w d2,d5
  1905. .okbot
  1906.  
  1907.  movem.l a0/d4/d5/d7/a1/a3/a4,-(a7)
  1908.  jsr SIMPLECALCLINE
  1909.  movem.l (a7)+,a0/d4/d5/d7/a1/a3/a4
  1910.  addq #4,a1
  1911.  dbra d7,putinlines
  1912.  addq #4,a1 
  1913.  
  1914.  move.w (a1)+,TEXTUREADD
  1915.  
  1916.  asr.w #2,d4
  1917.  asr.w #2,d5
  1918. ; add.w #128,d4
  1919. ; add.w #128,d5
  1920.  move.w d4,TOPLINE
  1921.  move.w d5,BOTLINE
  1922.   
  1923.  move.l #SHADOWPTS,a1
  1924.  move.w (a0),d0
  1925.  move.w 4(a0),d1
  1926.  move.w 8(a0),d2
  1927.  
  1928. CHECKVALS:
  1929.  
  1930.  muls #10,d0
  1931.  muls #10,d1
  1932.  muls #10,d2
  1933.  
  1934.  lea (a1,d0.w),a0
  1935.  lea (a1,d2.w),a2
  1936.  lea (a1,d1.w),a1
  1937.  
  1938.  move.l (a0),d3
  1939.  sub.l (a1),d3
  1940.  asr.l #8,d3
  1941.  asr.l #1,d3
  1942.  move.l 4(a0),d4
  1943.  sub.l 4(a1),d4
  1944.  asr.l #8,d4
  1945.  asr.l #1,d4
  1946.  move.w 8(a0),d5
  1947.  sub.w 8(a1),d5
  1948.  
  1949.  move.w d3,d6
  1950.  muls d6,d6
  1951.  move.w d4,d7
  1952.  muls d7,d7
  1953.  add.l d7,d6
  1954.  move.w d5,d7
  1955.  muls d7,d7
  1956.  add.l d7,d6
  1957.  move.l d6,d2
  1958.  jsr CALCSQROOT
  1959.  move.w d2,LEN1
  1960.  
  1961.  move.l (a2),d0
  1962.  sub.l (a1),d0
  1963.  asr.l #8,d0
  1964.  asr.l #1,d0
  1965.  move.l 4(a2),d1
  1966.  sub.l 4(a1),d1
  1967.  asr.l #8,d1
  1968.  asr.l #1,d1
  1969.  move.w 8(a2),d2
  1970.  sub.w 8(a1),d2
  1971.  
  1972.  muls d2,d3
  1973.  muls d0,d5
  1974.  sub.l d3,d5    ; length
  1975.  muls.l #$4c,d5
  1976.  
  1977.  muls d0,d0
  1978.  muls d1,d1
  1979.  muls d2,d2
  1980.  add.l d0,d1
  1981.  add.l d1,d2
  1982.  jsr CALCSQROOT
  1983.  
  1984.  muls LEN1,d2
  1985.  bgt.s .ok
  1986.  moveq #1,d2
  1987. .ok
  1988.  
  1989.  divs.l d2,d5
  1990.  
  1991.  add.l #16,d5
  1992.  
  1993.  tst.l d5
  1994.  ble.s .okbr
  1995.  moveq #0,d5
  1996. .okbr:
  1997.  add.w #$5c,d5
  1998.  bge.s .okbr2
  1999.  moveq #0,d5
  2000. .okbr2:
  2001.  
  2002.  move.w d5,d0
  2003.  
  2004.  asl.w #8,d5
  2005.  move.w d5,BRIGHTNESS+2
  2006.  
  2007.  sub.w #$5c,d0
  2008.  asr.w #1,d0
  2009.  add.w #$5c,d0
  2010.  asl.w #8,d0
  2011.  move.w d0,BRIGHTNESS
  2012.  
  2013.  
  2014. ***********************************************
  2015. * Draw the polygon (shadowed).
  2016.  
  2017.  move.l FASTBUFFER,a2
  2018.  move.l #LEFTUVS,a0
  2019.  move.w TOPLINE,d0
  2020.  move.w BOTLINE,d1
  2021.  sub.w d0,d1
  2022.  asl.w #4,d0
  2023.  add.w d0,a0
  2024.  muls #(320/16),d0
  2025.  add.l d0,a2    ; pointer to screen line.
  2026.  
  2027.  subq #1,d1
  2028.  blt NOPOLYGON
  2029.  
  2030.  tst.b Gouraud
  2031.  bne GOURPOLY
  2032.  
  2033. DOAHORLINE:
  2034.  swap d1
  2035.  
  2036.  move.w RIGHTUVS-LEFTUVS(a0),d0
  2037.  move.w (a0)+,d7
  2038.  asr.w #2,d0
  2039.  asr.w #2,d7
  2040.  sub.w d7,d0
  2041.  bge.s .okflibble
  2042.  
  2043.  add.w #14,a0
  2044.  add.w #320,a2
  2045.  swap d1
  2046.  dbra d1,DOAHORLINE
  2047.  bra NOPOLYGON
  2048.  
  2049. .okflibble:
  2050.  
  2051.  move.l a2,-(a7)
  2052.  
  2053.  add.w d7,a2
  2054.  ext.l d0
  2055.  addq #1,d0
  2056.  
  2057.  move.l RIGHTUVS-LEFTUVS(a0),d7
  2058.  move.l (a0)+,d2 
  2059.  sub.l d2,d7
  2060.  divs.l d0,d7
  2061.  move.l d7,a1
  2062.  
  2063.  
  2064.  
  2065.  
  2066.  
  2067.  
  2068.  
  2069.  
  2070.  
  2071.  
  2072.  
  2073.  
  2074.  
  2075.  
  2076.  
  2077.  
  2078.  
  2079.  
  2080.  move.l RIGHTUVS-LEFTUVS(a0),d7 
  2081.  move.l (a0)+,d3 
  2082.  
  2083.  
  2084.  
  2085.  
  2086.  
  2087.  
  2088.  
  2089.  
  2090.  
  2091.  
  2092.  
  2093.  
  2094.  
  2095.  
  2096.  
  2097.  
  2098.  
  2099.  
  2100.  
  2101.  
  2102.  sub.l d3,d7
  2103.  divs.l d0,d7
  2104.  move.l d7,a4
  2105.  
  2106.  move.w RIGHTUVS-LEFTUVS(a0),d7
  2107.  move.w (a0)+,d4
  2108.  swap d7
  2109.  clr.w d7
  2110.  swap d4
  2111.  clr.w d4
  2112.  sub.l d4,d7
  2113.  divs.l d0,d7
  2114.  move.l d7,a5
  2115.  
  2116.  move.w RIGHTUVS-LEFTUVS(a0),d7
  2117.  swap d7
  2118.  clr.w d7
  2119.  move.w (a0)+,d5
  2120.  swap d5
  2121.  clr.w d5
  2122.  sub.l d5,d7
  2123.  divs.l d0,d7
  2124.  move.l d7,a6
  2125.  
  2126.  move.w RIGHTUVS-LEFTUVS(a0),d7
  2127.  swap d7
  2128.  clr.w d7
  2129.  move.w (a0)+,d6
  2130.  swap d6
  2131.  clr.w d6
  2132.  sub.l d6,d7
  2133.  divs.l d0,d7
  2134.  move.l d7,a3
  2135.  
  2136.  move.l a0,-(a7)
  2137.  move.l d1,-(a7)
  2138.  move.l #TEXTURES,a0
  2139.  move.w TEXTUREADD,d7
  2140.  bge.s .okaddtes3
  2141.  and.w #$7fff,d7
  2142.  add.l #65536*4,a0
  2143. .okaddtes3:
  2144.  ext.l d7
  2145. ; add.l d7,d7
  2146.  asl.l #8,d7
  2147.  add.l d7,a0
  2148.  move.w #0,d7
  2149.  
  2150.  move.l BRIGHTNESS,a6
  2151.  
  2152.  move.l a7,SAVESTACK
  2153.  move.l #SHADOWBUFFER,a7
  2154.  
  2155.  subq #1,d0
  2156.  
  2157. ; d0=xdist
  2158. ; d2=U    a1=DU
  2159. ; d3=V  a4=DV
  2160. ; d4=X  a5=DX
  2161. ; d5=Y  a6=DY
  2162. ; d6=Z  a3=DZ
  2163.  move.w HIGHPOLY,d5
  2164.  
  2165.  moveq #0,d1
  2166.  swap d6
  2167.  move.w d6,d1
  2168.  lsl.w #8,d1
  2169.  swap d4
  2170.  move.b d4,d1
  2171.  swap d4
  2172.  swap d6
  2173.  
  2174.  moveq #0,d7
  2175.  move.b (a7,d1.l),d7
  2176.  cmp.w d7,d5
  2177.  ble INTHELIGHT
  2178.  bra.s INTHEDARK
  2179.  
  2180. PENUMBRA:
  2181.  moveq #0,d1
  2182.  swap d6
  2183.  move.w d6,d1
  2184.  lsl.w #8,d1
  2185.  swap d4
  2186.  move.b d4,d1
  2187.  swap d4
  2188.  swap d6
  2189.  add.l a5,d4
  2190.  add.l a3,d6
  2191.  
  2192.      moveq #0,d7
  2193.  move.b (a7,d1.l),d7
  2194.  cmp.w d7,d5
  2195.  ble INTOLIGHT
  2196.  bra.s INTODARK
  2197.  
  2198.  
  2199. INTHEDARK:
  2200.  moveq #0,d1
  2201.  swap d6
  2202.  move.w d6,d1
  2203.  lsl.w #8,d1
  2204.  swap d4
  2205.  move.b d4,d1
  2206.  swap d4
  2207.  swap d6
  2208.  add.l a5,d4
  2209.  add.l a3,d6
  2210.  
  2211.  moveq #0,d7
  2212.  move.b (a7,d1.l),d7
  2213.  cmp.w d7,d5
  2214.  ble.s INTOPENUM
  2215. INTODARK:
  2216.  move.w #$5c00,d7
  2217.  swap d2
  2218.  move.w d2,d1
  2219.  asl.w #8,d1
  2220.  swap d3
  2221.  move.b d3,d1
  2222.  swap d2
  2223.  swap d3
  2224.  add.l a1,d2
  2225.  add.l a4,d3
  2226.  
  2227. ; move.b (a0,d1.w*4),d7
  2228. ; beq.s .noplottt
  2229.  
  2230.  move.b TEXTUREPAL-256(pc,d7.w),(a2)+
  2231.  dbra d0,INTHEDARK
  2232.  bra.s PASTAC 
  2233.  
  2234. .noplottt
  2235.  addq #1,a2
  2236.  dbra d0,INTHEDARK
  2237.  bra.s PASTAC
  2238.  
  2239. INTOPENUM:
  2240.  move.l a6,d7
  2241.  swap d7
  2242.  swap d2
  2243.  move.w d2,d1
  2244.  asl.w #8,d1
  2245.  swap d3
  2246.  move.b d3,d1
  2247.  swap d2
  2248.  swap d3
  2249.  add.l a1,d2
  2250.  add.l a4,d3
  2251.  
  2252. ; move.b (a0,d1.w*4),d7
  2253. ; beq.s .noplottt
  2254.  
  2255.  move.b TEXTUREPAL(pc,d7.w),(a2)+
  2256.  dbra d0,PENUMBRA
  2257.  bra.s PASTAC 
  2258.  
  2259. .noplottt
  2260.  addq #1,a2
  2261.  dbra d0,PENUMBRA
  2262.  bra.s PASTAC
  2263.  
  2264. INTHELIGHT:
  2265.  
  2266.  moveq #0,d1
  2267.  swap d6
  2268.  move.w d6,d1
  2269.  lsl.w #8,d1
  2270.  swap d4
  2271.  move.b d4,d1
  2272.  swap d4
  2273.  swap d6
  2274.  add.l a5,d4
  2275.  add.l a3,d6
  2276.  
  2277.  moveq #0,d7
  2278.  move.b (a7,d1.l),d7
  2279.  cmp.w d7,d5
  2280.  bgt.s INTOPENUM
  2281. INTOLIGHT:
  2282.  move.w a6,d7
  2283.  swap d2
  2284.  move.w d2,d1
  2285.  asl.w #8,d1
  2286.  swap d3
  2287.  move.b d3,d1
  2288.  swap d2
  2289.  swap d3
  2290.  add.l a1,d2
  2291.  add.l a4,d3
  2292.  
  2293. ; move.b (a0,d1.w*4),d7
  2294. ; beq.s .noplottt
  2295.  
  2296.  move.b TEXTUREPAL(pc,d7.w),(a2)+
  2297.  dbra d0,INTHELIGHT
  2298.  bra.s PASTAC 
  2299.  
  2300. .noplottt:
  2301.  addq #1,a2
  2302.  dbra d0,INTHELIGHT
  2303.  
  2304. PASTAC
  2305.  
  2306.  move.l SAVESTACK,a7
  2307.  
  2308.  move.l (a7)+,d1
  2309.  move.l (a7)+,a0
  2310.  move.l (a7)+,a2
  2311.  
  2312. .noline:
  2313.  add.w #320,a2
  2314.  
  2315.  swap d1
  2316.  dbra d1,DOAHORLINE
  2317.  
  2318. NOPOLYGON:
  2319. polybehind:
  2320.  rts
  2321.  
  2322. TEXTUREPAL:
  2323.  
  2324. SAVESTACK: dc.l 0
  2325. HIGHPOLY: dc.w 0
  2326. LEN1: dc.w 0
  2327. BRIGHTNESS: dc.l 0
  2328. TRANSTEXT: dc.w 0
  2329. AANG: dc.w 0
  2330. BANG: dc.w 0
  2331. CANG: dc.w 0
  2332. DANG: dc.w 0
  2333.  
  2334.  
  2335.  
  2336. GOURPOLY: 
  2337.  
  2338. DOAHORLINEGOUR:
  2339.  swap d1
  2340.  
  2341.  move.w RIGHTUVS-LEFTUVS(a0),d0
  2342.  move.w (a0)+,d7
  2343.  asr.w #2,d0
  2344.  asr.w #2,d7
  2345.  sub.w d7,d0
  2346.  bge.s .okflibble
  2347.  
  2348.  add.w #14,a0
  2349.  add.w #320,a2
  2350.  swap d1
  2351.  dbra d1,DOAHORLINEGOUR
  2352.  bra NOPOLYGON
  2353.  
  2354. .okflibble:
  2355.  
  2356.  move.l a2,-(a7)
  2357.  
  2358.  add.w d7,a2
  2359.  ext.l d0
  2360.  addq #1,d0
  2361.  
  2362.  move.b RIGHTUVS-LEFTUVS(a0),d3
  2363.  move.b (a0),d2
  2364.  ext.w d3
  2365.  ext.w d2
  2366.  
  2367.  tst.w d2
  2368.  blt .bothtowards
  2369.  
  2370. ; bgt .firstaway
  2371.  tst.w d3
  2372.  blt .bothtowards
  2373.  bra .bothaway
  2374.  
  2375. .firsttowards:
  2376.  tst.w d3
  2377.  ble .bothtowards
  2378.  
  2379. ; First is towards and second away...
  2380.  
  2381.  move.w d0,d7    ; total length
  2382.  move.w d0,d6
  2383.  neg.w d2
  2384.  add.w d2,d3
  2385.  muls d2,d6
  2386.  divs d3,d6    ; length of first bit
  2387.  sub.w d6,d7    ; length of second bit
  2388.  move.w d6,FIRSTLEN
  2389.  move.w d7,LASTLEN
  2390.  
  2391.  tst.w FIRSTLEN
  2392.  beq .bothaway
  2393.  tst.w LASTLEN
  2394.  beq .bothtowards
  2395.  
  2396.  moveq #0,d2
  2397.  moveq #0,d3
  2398.  moveq #0,d4
  2399.  moveq #0,d5
  2400.  move.b 6(a0),d2
  2401.  move.b 7(a0),d3
  2402.  
  2403.  move.w d2,FIRSTU
  2404.  move.w d3,FIRSTV
  2405.  
  2406.  move.w d2,d4
  2407.  move.w d3,d5
  2408.  sub.w #128,d2
  2409.  sub.w #128,d3
  2410.  muls d2,d2
  2411.  muls d3,d3
  2412.  add.l d3,d2
  2413.  jsr CALCSQROOT
  2414.  
  2415.  tst.w d2
  2416.  beq.s .nochng
  2417.  
  2418.  sub.w #128,d4
  2419.  sub.w #128,d5
  2420.  muls #127,d4
  2421.  muls #127,d5
  2422.  divs d2,d4
  2423.  divs d2,d5
  2424.  add.w #128,d4
  2425.  add.w #128,d5
  2426.  
  2427. .nochng:
  2428.  
  2429.  move.w d4,MIDU
  2430.  move.w d5,MIDV
  2431.  
  2432.  move.b 6+RIGHTUVS-LEFTUVS(a0),d4
  2433.  move.b 7+RIGHTUVS-LEFTUVS(a0),d5
  2434.  move.w d4,SECU
  2435.  move.w d5,SECV
  2436.  
  2437.  move.w d4,d2
  2438.  move.w d5,d3
  2439.  
  2440.  sub.w #128,d2
  2441.  sub.w #128,d3
  2442.  muls d2,d2
  2443.  muls d3,d3
  2444.  add.l d3,d2
  2445.  jsr CALCSQROOT
  2446.  
  2447.  tst.w d2
  2448.  beq.s .nochng2
  2449.  
  2450.  sub.w #128,d4
  2451.  sub.w #128,d5
  2452.  muls #127,d4
  2453.  muls #127,d5
  2454.  divs d2,d4
  2455.  divs d2,d5
  2456.  add.w #128,d4
  2457.  add.w #128,d5
  2458.  
  2459. .nochng2:
  2460.  
  2461.  add.w MIDU,d4
  2462.  add.w MIDV,d5
  2463.  asr.w #1,d4
  2464.  asr.w #1,d5
  2465.  move.w d4,MIDU
  2466.  move.w d5,MIDV 
  2467.  
  2468.  move.l RIGHTUVS-LEFTUVS(a0),d7
  2469.  move.l (a0)+,d2 
  2470.  
  2471.  and.l #$ffffff,d2
  2472.  and.l #$ffffff,d7
  2473.  
  2474.  moveq #0,d3
  2475.  moveq #0,d5
  2476.  move.w d2,d3
  2477.  move.w d7,d5
  2478.  swap d3
  2479.  swap d5
  2480.  sub.l d3,d5
  2481.  divs.l d0,d5
  2482.  asr.l #8,d5
  2483.  move.w d5,RIGHTBRIGHT
  2484.  asr.l #8,d3
  2485.  move.w d3,LEFTBRIGHT
  2486.  
  2487.  clr.w d2
  2488.  clr.w d7
  2489.  sub.l d2,d7
  2490.  asl.l #8,d2
  2491.  divs.l d0,d7
  2492.  asl.l #8,d7
  2493.  
  2494.  move.l RIGHTUVS-LEFTUVS(a0),d6 
  2495.  move.l (a0)+,d3
  2496.  
  2497.  moveq #0,d4
  2498.  moveq #0,d5
  2499.  
  2500. ; move.w d6,d5
  2501. ; move.w d3,d4
  2502. ; move.b #0,d4
  2503. ; move.b #0,d5
  2504.  
  2505.  move.w FIRSTU,d4
  2506.  move.w MIDU,d5
  2507.  lsl.l #8,d4
  2508.  lsl.l #8,d5
  2509.  
  2510.  sub.l d4,d5
  2511.  divs.l FIRSTLEN-2,d5
  2512.  
  2513.  move.w d4,d2
  2514.  move.w d5,d7
  2515.  move.l d7,a1
  2516.  moveq #0,d4
  2517.  moveq #0,d5
  2518.  
  2519. ; move.b d6,d5
  2520. ; move.b d3,d4
  2521.  
  2522. ; swap d5
  2523. ; swap d4
  2524.  
  2525.  move.w FIRSTV,d4
  2526.  move.w MIDV,d5
  2527.  swap d4
  2528.  swap d5
  2529.  
  2530.  sub.l d4,d5
  2531.  divs.l FIRSTLEN-2,d5
  2532.  
  2533.  move.l d5,a3
  2534.  move.l d4,d5
  2535.   
  2536.  clr.w d3
  2537.  clr.w d6
  2538.  sub.l d3,d6
  2539.  divs.l d0,d6
  2540.  move.l d6,a4
  2541.  
  2542.  move.w RIGHTUVS-LEFTUVS(a0),d7
  2543.  move.w (a0)+,d4
  2544.  swap d7
  2545.  clr.w d7
  2546.  swap d4
  2547.  clr.w d4
  2548.  sub.l d4,d7
  2549.  divs.l d0,d7
  2550.  move.l d7,a5
  2551.  
  2552. ; move.w RIGHTUVS-LEFTUVS(a0),d7
  2553. ; swap d7
  2554. ; clr.w d7
  2555.  move.w (a0)+,d7
  2556. ; swap d5
  2557. ; clr.w d5
  2558. ; sub.l d5,d7
  2559. ; divs.l d0,d7
  2560. ; move.l d7,a6
  2561.  
  2562.  move.w RIGHTUVS-LEFTUVS(a0),d7
  2563.  swap d7
  2564.  clr.w d7
  2565.  move.w (a0)+,d6
  2566.  swap d6
  2567.  clr.w d6
  2568.  sub.l d6,d7
  2569.  divs.l d0,d7
  2570.  
  2571.  lsl.l #8,d6
  2572.  lsl.l #8,d7
  2573.  
  2574.  move.w RIGHTBRIGHT,d7
  2575.  move.l d7,a6
  2576.  
  2577.  move.l a0,-(a7)
  2578.  move.l d1,-(a7)
  2579.  move.l #TEXTURES,a0
  2580.  move.w TEXTUREADD,d7
  2581.  bge.s .okaddtes3
  2582.  and.w #$7fff,d7
  2583.  add.l #65536*4,a0
  2584. .okaddtes3:
  2585.  ext.l d7
  2586. ; add.l d7,d7
  2587.  asl.l #8,d7
  2588.  add.l d7,a0
  2589.  move.w #0,d7
  2590.  
  2591.  move.w LEFTBRIGHT,d6
  2592.  
  2593.  subq #1,d0
  2594.  swap d0
  2595.  move.w HIGHPOLY,d0
  2596.  swap d0
  2597.  
  2598.  
  2599. ; d0=xdist
  2600. ; d2=U    a1=DU
  2601. ; d3=V  a4=DV
  2602. ; d4=X  a5=DX
  2603. ; d5=Y  a6=DY
  2604. ; d6=Z  a3=DZ
  2605.  
  2606. ; d0= polynum : polynum : counter : counter
  2607. ; d1= scratch : scratch : scratch : scratch
  2608. ; d2= u : uacc : sv : svacc
  2609. ; d3= v : v : vacc : vacc
  2610. ; d4= x : x : xacc : xacc
  2611. ; d5= su : su : suacc : suacc
  2612. ; d6= z : zacc : bright : brightacc
  2613. ; d7= scratch : scratch : scratch : scratch
  2614.  
  2615. ; a0= textures
  2616. ; a1= uspeed : uspeed : suspeed : suspeed
  2617. ; a2= screen pointer
  2618. ; a3= svspeed : svspeed : svspeed : svspeed
  2619. ; a4= vspeed : vspeed : vspeed : vspeed
  2620. ; a5= xspeed : xspeed : xspeed : xspeed
  2621. ; a6= zspeed : zspeed :brightspeed : brightspeed
  2622. ; a7= shadowmap pointer
  2623.  
  2624.  
  2625.  move.w FIRSTLEN,d0
  2626.  sub.w #1,d0
  2627.  bsr STARTLINE
  2628.  
  2629.  move.l #0,d5
  2630.  move.w #0,d2
  2631.  move.l #0,a3
  2632.  
  2633.  move.w LASTLEN,d0
  2634.  sub.w #1,d0
  2635.  
  2636.  bsr STARTLINE
  2637.  
  2638.  
  2639.  move.l (a7)+,d1
  2640.  move.l (a7)+,a0
  2641.  move.l (a7)+,a2
  2642.  
  2643.  bra .noline
  2644.  
  2645. .firstaway:
  2646.  tst.w d3
  2647.  bge .bothaway
  2648.  
  2649.  
  2650. ; first is away and second is towards...
  2651.  
  2652. ; this really isn't going to work...
  2653.  
  2654.  move.w d0,d7    ; total length
  2655.  move.w d0,d6
  2656.  neg.w d3
  2657.  add.w d2,d3
  2658.  muls d2,d6
  2659.  divs d3,d6    ; length of first bit
  2660.  sub.w d6,d7    ; length of second bit
  2661.  move.w d6,FIRSTLEN
  2662.  move.w d7,LASTLEN
  2663.  
  2664.  tst.w FIRSTLEN
  2665.  beq .bothaway
  2666.  tst.w LASTLEN
  2667.  beq .bothtowards
  2668.  
  2669.  moveq #0,d2
  2670.  moveq #0,d3
  2671.  moveq #0,d4
  2672.  moveq #0,d5
  2673.  move.b 6(a0),d2
  2674.  move.b 7(a0),d3
  2675.  
  2676.  move.w d2,FIRSTU
  2677.  move.w d3,FIRSTV
  2678.  
  2679.  move.w d2,d4
  2680.  move.w d3,d5
  2681.  sub.w #128,d2
  2682.  sub.w #128,d3
  2683.  muls d2,d2
  2684.  muls d3,d3
  2685.  add.l d3,d2
  2686.  jsr CALCSQROOT
  2687.  
  2688.  tst.w d2
  2689.  beq.s .nochng22
  2690.  
  2691.  sub.w #128,d4
  2692.  sub.w #128,d5
  2693.  muls #127,d4
  2694.  muls #127,d5
  2695.  divs d2,d4
  2696.  divs d2,d5
  2697.  add.w #128,d4
  2698.  add.w #128,d5
  2699.  
  2700. .nochng22:
  2701.  
  2702.  move.w d4,MIDU
  2703.  move.w d5,MIDV
  2704.  
  2705.  moveq #0,d4
  2706.  moveq #0,d5
  2707.  move.b 6+RIGHTUVS-LEFTUVS(a0),d4
  2708.  move.b 7+RIGHTUVS-LEFTUVS(a0),d5
  2709.  move.w d4,SECU
  2710.  move.w d5,SECV
  2711.  
  2712.  move.w d4,d2
  2713.  move.w d5,d3
  2714.  
  2715.  sub.w #128,d2
  2716.  sub.w #128,d3
  2717.  muls d2,d2
  2718.  muls d3,d3
  2719.  add.l d3,d2
  2720.  jsr CALCSQROOT
  2721.  
  2722.  tst.w d2
  2723.  beq.s .nochng222
  2724.  
  2725.  sub.w #128,d4
  2726.  sub.w #128,d5
  2727.  muls #127,d4
  2728.  muls #127,d5
  2729.  divs d2,d4
  2730.  divs d2,d5
  2731.  add.w #128,d4
  2732.  add.w #128,d5
  2733.  
  2734. .nochng222:
  2735.  
  2736.  add.w MIDU,d4
  2737.  add.w MIDV,d5
  2738.  asr.w #1,d4
  2739.  asr.w #1,d5
  2740.  move.w d4,MIDU
  2741.  move.w d5,MIDV
  2742.  
  2743.  
  2744.  move.l RIGHTUVS-LEFTUVS(a0),d7
  2745.  move.l (a0)+,d2 
  2746.  
  2747.  and.l #$ffffff,d2
  2748.  and.l #$ffffff,d7
  2749.  
  2750.  moveq #0,d3
  2751.  moveq #0,d5
  2752.  move.w d2,d3
  2753.  move.w d7,d5
  2754.  swap d3
  2755.  swap d5
  2756.  sub.l d3,d5
  2757.  divs.l d0,d5
  2758.  asr.l #8,d5
  2759.  move.w d5,RIGHTBRIGHT
  2760.  asr.l #8,d3
  2761.  move.w d3,LEFTBRIGHT
  2762.  
  2763.  clr.w d2
  2764.  clr.w d7
  2765.  sub.l d2,d7
  2766.  asl.l #8,d2
  2767.  divs.l d0,d7
  2768.  asl.l #8,d7
  2769.  
  2770.  move.l RIGHTUVS-LEFTUVS(a0),d6 
  2771.  move.l (a0)+,d3
  2772.  
  2773.  moveq #0,d4
  2774.  moveq #0,d5
  2775.  
  2776.  move.w MIDU,d4
  2777.  move.w SECU,d5
  2778.  lsl.w #8,d4
  2779.  lsl.w #8,d5
  2780.  
  2781. ; move.w d6,d5
  2782. ; move.w d3,d4
  2783. ; move.b #0,d4
  2784. ; move.b #0,d5
  2785.  
  2786.  sub.l d4,d5
  2787.  divs.l LASTLEN-2,d5
  2788.  
  2789.  move.w d4,d2
  2790.  move.w d5,d7
  2791.  move.l d7,a1
  2792.  moveq #0,d4
  2793.  moveq #0,d5
  2794.  
  2795.  move.w MIDV,d4
  2796.  move.w SECV,d5
  2797.  
  2798.  swap d5
  2799.  swap d4
  2800.  
  2801.  sub.l d4,d5
  2802.  divs.l LASTLEN-2,d5
  2803.  
  2804.  move.l d5,a3
  2805.  move.l d4,d5
  2806.  
  2807.  clr.w d3
  2808.  clr.w d6
  2809.  sub.l d3,d6
  2810.  divs.l d0,d6
  2811.  move.l d6,a4
  2812.  
  2813.  move.w RIGHTUVS-LEFTUVS(a0),d7
  2814.  move.w (a0)+,d4
  2815.  swap d7
  2816.  clr.w d7
  2817.  swap d4
  2818.  clr.w d4
  2819.  sub.l d4,d7
  2820.  divs.l d0,d7
  2821.  move.l d7,a5
  2822.  
  2823. ; move.w RIGHTUVS-LEFTUVS(a0),d7
  2824. ; swap d7
  2825. ; clr.w d7
  2826.  move.w (a0)+,d7
  2827. ; swap d5
  2828. ; clr.w d5
  2829. ; sub.l d5,d7
  2830. ; divs.l d0,d7
  2831. ; move.l d7,a6
  2832.  
  2833.  move.w RIGHTUVS-LEFTUVS(a0),d7
  2834.  swap d7
  2835.  clr.w d7
  2836.  move.w (a0)+,d6
  2837.  swap d6
  2838.  clr.w d6
  2839.  sub.l d6,d7
  2840.  divs.l d0,d7
  2841.  
  2842.  lsl.l #8,d6
  2843.  lsl.l #8,d7
  2844.  
  2845.  move.w RIGHTBRIGHT,d7
  2846.  move.l d7,a6
  2847.  
  2848.  move.l a0,-(a7)
  2849.  move.l d1,-(a7)
  2850.  move.l #TEXTURES,a0
  2851.  move.w TEXTUREADD,d7
  2852.  bge.s .okaddtes4
  2853.  and.w #$7fff,d7
  2854.  add.l #65536*4,a0
  2855. .okaddtes4:
  2856.  ext.l d7
  2857. ; add.l d7,d7
  2858.  asl.l #8,d7
  2859.  add.l d7,a0
  2860.  move.w #0,d7
  2861.  
  2862.  move.w LEFTBRIGHT,d6
  2863.  
  2864.  
  2865.  subq #1,d0
  2866.  swap d0
  2867.  move.w HIGHPOLY,d0
  2868.  swap d0
  2869.  
  2870.  
  2871. ; d0=xdist
  2872. ; d2=U    a1=DU
  2873. ; d3=V  a4=DV
  2874. ; d4=X  a5=DX
  2875. ; d5=Y  a6=DY
  2876. ; d6=Z  a3=DZ
  2877.  
  2878. ; d0= polynum : polynum : counter : counter
  2879. ; d1= scratch : scratch : scratch : scratch
  2880. ; d2= u : uacc : sv : svacc
  2881. ; d3= v : v : vacc : vacc
  2882. ; d4= x : x : xacc : xacc
  2883. ; d5= su : su : suacc : suacc
  2884. ; d6= z : zacc : bright : brightacc
  2885. ; d7= scratch : scratch : scratch : scratch
  2886.  
  2887. ; a0= textures
  2888. ; a1= uspeed : uspeed : suspeed : suspeed
  2889. ; a2= screen pointer
  2890. ; a3= svspeed : svspeed : svspeed : svspeed
  2891. ; a4= vspeed : vspeed : vspeed : vspeed
  2892. ; a5= xspeed : xspeed : xspeed : xspeed
  2893. ; a6= zspeed : zspeed :brightspeed : brightspeed
  2894. ; a7= shadowmap pointer
  2895.  
  2896.  move.w d2,-(a7)
  2897.  move.l d5,-(a7)
  2898.  move.l a3,-(a7)
  2899.  
  2900.  move.w #0,d2
  2901.  move.l #0,d5
  2902.  move.l #0,a3
  2903.  
  2904.  move.w FIRSTLEN,d0
  2905.  subq #1,d0
  2906.  bsr STARTLINE
  2907.  
  2908.  
  2909.  move.l (a7)+,a3
  2910.  move.l (a7)+,d5
  2911.  move.w (a7)+,d2
  2912.  
  2913.  move.w LASTLEN,d0
  2914.  subq #1,d0
  2915.  
  2916.  bsr STARTLINE
  2917.  
  2918.  
  2919.  move.l (a7)+,d1
  2920.  move.l (a7)+,a0
  2921.  move.l (a7)+,a2
  2922.  
  2923.  bra .noline
  2924.  
  2925.  
  2926. .bothaway:
  2927.  
  2928.  move.w #0,6+RIGHTUVS-LEFTUVS(a0)
  2929.  move.w #0,6(a0)
  2930.  
  2931. .bothtowards:
  2932.  
  2933.  move.l RIGHTUVS-LEFTUVS(a0),d7
  2934.  move.l (a0)+,d2 
  2935.  
  2936.  and.l #$ffffff,d2
  2937.  and.l #$ffffff,d7
  2938.  
  2939.  moveq #0,d3
  2940.  moveq #0,d5
  2941.  move.w d2,d3
  2942.  move.w d7,d5
  2943.  swap d3
  2944.  swap d5
  2945.  sub.l d3,d5
  2946.  divs.l d0,d5
  2947.  asr.l #8,d5
  2948.  move.w d5,RIGHTBRIGHT
  2949.  asr.l #8,d3
  2950.  move.w d3,LEFTBRIGHT
  2951.  
  2952.  clr.w d2
  2953.  clr.w d7
  2954.  sub.l d2,d7
  2955.  asl.l #8,d2
  2956.  divs.l d0,d7
  2957.  asl.l #8,d7
  2958.  
  2959.  move.l RIGHTUVS-LEFTUVS(a0),d6 
  2960.  move.l (a0)+,d3
  2961.  
  2962.  moveq #0,d4
  2963.  moveq #0,d5
  2964.  
  2965.  move.w d6,d5
  2966.  move.w d3,d4
  2967.  move.b #0,d4
  2968.  move.b #0,d5
  2969.  
  2970.  sub.l d4,d5
  2971.  divs.l d0,d5
  2972.  
  2973.  move.w d4,d2
  2974.  move.w d5,d7
  2975.  move.l d7,a1
  2976.  moveq #0,d4
  2977.  moveq #0,d5
  2978.  
  2979.  move.b d6,d5
  2980.  move.b d3,d4
  2981.  
  2982.  swap d5
  2983.  swap d4
  2984.  
  2985.  sub.l d4,d5
  2986.  divs.l d0,d5
  2987.  
  2988.  move.l d5,a3
  2989.  move.l d4,d5
  2990.  
  2991.   
  2992.  clr.w d3
  2993.  clr.w d6
  2994.  sub.l d3,d6
  2995.  divs.l d0,d6
  2996.  move.l d6,a4
  2997.  
  2998.  move.w RIGHTUVS-LEFTUVS(a0),d7
  2999.  move.w (a0)+,d4
  3000.  swap d7
  3001.  clr.w d7
  3002.  swap d4
  3003.  clr.w d4
  3004.  sub.l d4,d7
  3005.  divs.l d0,d7
  3006.  move.l d7,a5
  3007.  
  3008. ; move.w RIGHTUVS-LEFTUVS(a0),d7
  3009. ; swap d7
  3010. ; clr.w d7
  3011.  move.w (a0)+,d7
  3012. ; swap d5
  3013. ; clr.w d5
  3014. ; sub.l d5,d7
  3015. ; divs.l d0,d7
  3016. ; move.l d7,a6
  3017.  
  3018.  move.w RIGHTUVS-LEFTUVS(a0),d7
  3019.  swap d7
  3020.  clr.w d7
  3021.  move.w (a0)+,d6
  3022.  swap d6
  3023.  clr.w d6
  3024.  sub.l d6,d7
  3025.  divs.l d0,d7
  3026.  
  3027.  lsl.l #8,d6
  3028.  lsl.l #8,d7
  3029.  
  3030.  move.w RIGHTBRIGHT,d7
  3031.  move.l d7,a6
  3032.  
  3033.  move.l a0,-(a7)
  3034.  move.l d1,-(a7)
  3035.  move.l #TEXTURES,a0
  3036.  move.w TEXTUREADD,d7
  3037.  bge.s .okaddtes5
  3038.  and.w #$7fff,d7
  3039.  add.l #65536*4,a0
  3040. .okaddtes5:
  3041.  ext.l d7
  3042.  asl.l #8,d7
  3043.  add.l d7,a0
  3044.  move.w #0,d7
  3045.  
  3046.  move.w LEFTBRIGHT,d6
  3047.  
  3048.  subq #1,d0
  3049.  swap d0
  3050.  move.w HIGHPOLY,d0
  3051.  swap d0
  3052.  
  3053.  
  3054. ; d0=xdist
  3055. ; d2=U    a1=DU
  3056. ; d3=V  a4=DV
  3057. ; d4=X  a5=DX
  3058. ; d5=Y  a6=DY
  3059. ; d6=Z  a3=DZ
  3060.  
  3061. ; d0= polynum : polynum : counter : counter
  3062. ; d1= scratch : scratch : scratch : scratch
  3063. ; d2= u : uacc : sv : svacc
  3064. ; d3= v : v : vacc : vacc
  3065. ; d4= x : x : xacc : xacc
  3066. ; d5= su : su : suacc : suacc
  3067. ; d6= z : zacc : bright : brightacc
  3068. ; d7= scratch : scratch : scratch : scratch
  3069.  
  3070. ; a0= textures
  3071. ; a1= uspeed : uspeed : suspeed : suspeed
  3072. ; a2= screen pointer
  3073. ; a3= svspeed : svspeed : svspeed : svspeed
  3074. ; a4= vspeed : vspeed : vspeed : vspeed
  3075. ; a5= xspeed : xspeed : xspeed : xspeed
  3076. ; a6= zspeed : zspeed :brightspeed : brightspeed
  3077. ; a7= shadowmap pointer
  3078.  
  3079.  bsr STARTLINE
  3080.  
  3081.  move.l (a7)+,d1
  3082.  move.l (a7)+,a0
  3083.  move.l (a7)+,a2
  3084.  
  3085. .noline:
  3086.  add.w #320,a2
  3087.  
  3088.  swap d1
  3089.  dbra d1,DOAHORLINEGOUR
  3090.  
  3091.  bra NOPOLYGON
  3092.  
  3093.  
  3094.  
  3095.  
  3096.  
  3097. *******************************
  3098. STARTLINE:
  3099.  
  3100.  move.l a7,SAVESTACK
  3101.  move.l #SHADOWBUFFER,a7
  3102.  
  3103.  moveq #0,d1
  3104.  swap d6
  3105.  move.w d6,d1
  3106.  swap d4
  3107.  move.b d4,d1
  3108.  swap d4
  3109.  swap d6
  3110.  
  3111.  swap d0
  3112.  moveq #0,d7
  3113.  move.b (a7,d1.l*2),d7
  3114.  cmp.w d7,d0
  3115.  ble .startlight
  3116.  swap d0
  3117.  bra INTHEDARKGOUR
  3118. .startlight:
  3119.  swap d0
  3120.  bra INTHELIGHTGOUR 
  3121. .startdark:
  3122. ***********************************
  3123.  
  3124.  
  3125.  
  3126. PENUMBRAGOUR:
  3127.  moveq #0,d1
  3128.  swap d6
  3129.  move.w d6,d1
  3130.  swap d4
  3131.  move.b d4,d1
  3132.  swap d4
  3133.  swap d6
  3134.  add.l a5,d4
  3135.  add.l a6,d6
  3136.  add.l a3,d5
  3137.  
  3138.  swap d0
  3139.  moveq #0,d7
  3140.  move.b (a7,d1.l*2),d7
  3141.  cmp.w d7,d0
  3142.  ble INTOLIGHTGOUR
  3143.  bra.s INTODARKGOUR
  3144.  
  3145. INTHEDARKGOUR:
  3146.  moveq #0,d1
  3147.  swap d6
  3148.  move.w d6,d1
  3149.  swap d4
  3150.  move.b d4,d1
  3151.  swap d4
  3152.  swap d6
  3153.  add.l a5,d4
  3154.  add.l a6,d6
  3155.  add.l a3,d5
  3156.  
  3157.  swap d0
  3158.  moveq #0,d7
  3159.  move.b (a7,d1.l*2),d7
  3160.  cmp.w d7,d0
  3161.  ble.s INTOPENUMGOUR
  3162. INTODARKGOUR:
  3163.  swap d0
  3164.  move.w #$5c00,d7
  3165.  swap d2
  3166.  move.w d2,d1
  3167.  swap d3
  3168.  move.b d3,d1
  3169.  swap d2
  3170.  swap d3
  3171.  add.l a1,d2
  3172.  add.l a4,d3
  3173.  
  3174.  move.b 1(a0,d1.w*4),d7
  3175.  bra DARKplottt
  3176.  
  3177. .noplottt
  3178.  addq #1,a2
  3179.  dbra d0,INTHEDARKGOUR
  3180.  bra DONEDONEBUM
  3181.  
  3182. INTOPENUMGOUR:
  3183.  swap d0
  3184.  move.w d6,d7
  3185.  
  3186.  sub.w #$5c00,d7
  3187.  asr.w #1,d7
  3188.  add.w #$5c00,d7
  3189.  
  3190.  swap d2
  3191.  move.w d2,d1
  3192.  swap d3
  3193.  move.b d3,d1
  3194.  swap d2
  3195.  swap d3
  3196.  add.l a1,d2
  3197.  add.l a4,d3
  3198.  
  3199.  move.b 1(a0,d1.w*4),d7
  3200.  bra.s PENUMplottt
  3201.  
  3202. .noplottt
  3203.  addq #1,a2
  3204.  dbra d0,PENUMBRAGOUR
  3205.  bra DONEDONEBUM
  3206.  
  3207.  
  3208. INTHELIGHTGOUR:
  3209.  
  3210.  moveq #0,d1
  3211.  swap d6
  3212.  move.w d6,d1
  3213.  swap d4
  3214.  move.b d4,d1
  3215.  swap d4
  3216.  swap d6
  3217.  add.l a5,d4
  3218.  add.l a6,d6
  3219.  add.l a3,d5
  3220.  
  3221.  swap d0
  3222.  moveq #0,d7
  3223.  move.b (a7,d1.l*2),d7
  3224.  cmp.w d7,d0
  3225.  bgt.s INTOPENUMGOUR
  3226. INTOLIGHTGOUR:
  3227.  swap d0
  3228.  move.w d6,d7
  3229.  swap d7
  3230.  swap d2
  3231.  move.w d2,d1
  3232.  swap d3
  3233.  move.b d3,d1
  3234.  swap d2
  3235.  swap d3
  3236.  
  3237.  move.l (a0,d1.w*4),d1
  3238.  move.w d1,d7
  3239.  
  3240.  add.l a1,d2
  3241.  add.l a4,d3
  3242.  
  3243.  bra.s LIGHTPLOTT
  3244. .noplottt:
  3245.  addq #1,a2
  3246.  dbra d0,INTHELIGHTGOUR
  3247. FLIBBLEY:
  3248.  bra.s DONEDONEBUM
  3249.  
  3250. PENUMplottt
  3251.  move.b GOURPAL(pc,d7.w),(a2)+
  3252.  dbra d0,PENUMBRAGOUR
  3253.  bra.s DONEDONEBUM
  3254.  
  3255. DARKplottt
  3256.  move.b GOURPAL(pc,d7.w),(a2)+
  3257.  dbra d0,INTHEDARKGOUR
  3258.  bra.s DONEDONEBUM
  3259.  
  3260. LIGHTPLOTT:
  3261.  move.w d2,d1
  3262.  swap d5
  3263.  move.b d5,d1
  3264.  swap d5
  3265.  add.w d7,d1
  3266.  swap d1
  3267.  move.w d1,d7
  3268.  sub.w d1,d1
  3269.  swap d1
  3270.  
  3271.  move.b 1(a7,d1.l*2),d1    ; specular value of point.
  3272.  
  3273.  lsl.w #8,d1
  3274.  neg.w d1
  3275.  add.w #31*256,d1
  3276.  
  3277.  add.w d7,d1
  3278.  swap d7
  3279.  move.b d1,d7
  3280.  move.b GOURPAL(pc,d7.w),d1
  3281.  move.b GOURPAL(pc,d1.w),(a2)+
  3282.  dbra d0,INTHELIGHTGOUR
  3283. DONEDONEBUM:
  3284.  move.l SAVESTACK,a7
  3285.  rts
  3286.  
  3287. GOURPAL: incbin "ab3:includes/shadow.pal"
  3288.  
  3289.  
  3290.  
  3291.  
  3292. LEFTSHINEV: dc.l 0
  3293. RIGHTSHINEV: dc.l 0
  3294. LEFTSHINEU: dc.l 0
  3295. RIGHTSHINEU: dc.l 0
  3296.  
  3297. TOPPTR: dc.l 0
  3298. TOPPTNUM: dc.w 0
  3299. BOTPTNUM: dc.w 0
  3300. LEFTBRIGHT: dc.w 0
  3301. RIGHTBRIGHT: dc.l 0
  3302. LEFTSPEC: dc.w 0
  3303. RIGHTSPEC: dc.w 0
  3304.  
  3305. ***********************************************
  3306.     
  3307. SIMPLECALCLINE:
  3308.  move.l #ONSCREENPTS,a1
  3309.  
  3310.  move.w 2(a1,d0.w*4),d2        ;fy
  3311.  move.w 2(a1,d1.w*4),d7        ;sy
  3312.  
  3313.  move.l #RIGHTUVS,a3
  3314.  asr.w #2,d2
  3315.  asr.w #2,d7
  3316.  cmp.w d2,d7 
  3317.  beq .noline
  3318.  
  3319.  bgt.s .lineonright
  3320. .lineonleft:
  3321.  move.l #LEFTUVS,a3
  3322.  exg d0,d1
  3323.  exg d2,d7
  3324.  
  3325. .lineonright:
  3326.  move.w d0,TOPPTNUM
  3327.  move.w d1,BOTPTNUM
  3328.  
  3329.  sub.w d2,d7
  3330.  asl.w #4,d2
  3331.  add.w d2,a3
  3332.  move.l a3,TOPPTR
  3333.  
  3334.  move.w d7,YDIFF
  3335.  
  3336.  move.w (a1,d0.w*4),d3        ;fx
  3337.  move.w (a1,d1.w*4),d7        ;sx
  3338.  
  3339.  sub.w d3,d7
  3340.  swap d3
  3341.  swap d7
  3342.  clr.w d3
  3343.  clr.w d7
  3344.  divs.l YDIFF-2,d7
  3345.  move.l d7,a0    ; dx
  3346.  
  3347.  move.l #UVCOORDS,a2
  3348.  move.l #SHADOWPTS,a1
  3349.  
  3350.  move.w (a2,d0.w*4),d4
  3351.  move.w 2(a2,d0.w*4),d5
  3352.  move.w (a2,d1.w*4),d6
  3353.  move.w 2(a2,d1.w*4),d7
  3354.  
  3355.  sub.w d4,d6
  3356.  sub.w d5,d7
  3357.  swap d4
  3358.  swap d5
  3359.  clr.w d4
  3360.  clr.w d5
  3361.  swap d6
  3362.  swap d7
  3363.  clr.w d6
  3364.  clr.w d7
  3365.  
  3366.  divs.l YDIFF-2,d6
  3367.  divs.l YDIFF-2,d7
  3368.  
  3369.  move.l d6,a4
  3370.  move.l d7,a5
  3371.  
  3372.  muls #10,d0
  3373.  muls #10,d1
  3374.  move.l (a1,d0.w),d6
  3375.  
  3376.  move.l (a1,d1.w),d7
  3377.  asl.l #5,d6
  3378.  asl.l #5,d7
  3379.  sub.l d6,d7
  3380.  divs.l YDIFF-2,d7
  3381.  move.l d7,a2
  3382.  move.l d6,a6
  3383.  
  3384.  move.l 4(a1,d0.w),d6
  3385.  move.l 4(a1,d1.w),d7
  3386.  asl.l #5,d6
  3387.  asl.l #5,d7
  3388.  sub.l d6,d7
  3389.  divs.l YDIFF-2,d7
  3390.  exg d7,a6
  3391.  exg d7,d6
  3392.  
  3393.  move.w 8(a1,d0.w),d0
  3394.  move.w 8(a1,d1.w),d1
  3395.  swap d0
  3396.  swap d1
  3397.  clr.w d0
  3398.  clr.w d1
  3399.  asr.l #2,d0
  3400.  asr.l #2,d1
  3401.  sub.l d0,d1
  3402.  divs.l YDIFF-2,d1
  3403.  move.l d1,a1
  3404.  move.l YDIFF-2,d1
  3405.  subq #1,d1
  3406.  
  3407. ; d3=sx a0=dsx
  3408. ; d4=u a4=du
  3409. ; d5=v a5=dv
  3410. ; d6=x a2=dx
  3411. ; d7=y a6=dy
  3412. ; d0=z a1=dz
  3413. ; d1=dsy
  3414.  
  3415.  
  3416.  add.l #128*65536,d6
  3417.  add.l #128*65536,d7
  3418.  add.l #128*65536,d0
  3419.  
  3420. .PUTINLINE:
  3421.  swap d3
  3422.  move.w d3,(a3)+
  3423.  swap d3
  3424.  add.l a0,d3
  3425.  move.l d4,(a3)+
  3426.  add.l a4,d4
  3427.  move.l d5,(a3)+
  3428.  swap d6
  3429.  add.l a5,d5
  3430.  move.w d6,(a3)+
  3431.  swap d6
  3432.  swap d7
  3433.  add.l a2,d6
  3434.  move.w d7,(a3)+
  3435.  swap d7
  3436.  swap d0
  3437.  add.l a6,d7
  3438.  move.w d0,(a3)+
  3439.  swap d0
  3440.  add.l a1,d0
  3441.  dbra d1,.PUTINLINE
  3442.  
  3443.  tst.b Gouraud
  3444.  beq .noline
  3445.  
  3446.  move.w TOPPTNUM,d0
  3447.  move.w BOTPTNUM,d1
  3448.  move.l TOPPTR,a3
  3449.  moveq #0,d6
  3450.  move.w YDIFF,d6
  3451.  
  3452.  move.l #SPECBRIGHTS,a2
  3453.  
  3454.  moveq #0,d2
  3455.  moveq #0,d3
  3456.  move.b (a2,d0.w*4),d2
  3457.  move.b 1(a2,d0.w*4),d3
  3458.  sub.w #128,d2
  3459.  sub.w #128,d3
  3460.  
  3461.  move.w d2,d4
  3462.  move.w d3,d5
  3463.  muls ACOS,d2
  3464.  muls ASIN,d3
  3465.  sub.l d3,d2
  3466.  muls ASIN,d4
  3467.  muls ACOS,d5
  3468.  add.l d5,d4
  3469.  asl.l #2,d2
  3470.  swap d2
  3471.  asl.l #2,d4
  3472.  swap d4
  3473.  
  3474.  add.w #128,d2
  3475.  add.w #128,d4
  3476.  move.w d2,FSX
  3477.  move.w d4,FSY
  3478.  
  3479.  moveq #0,d2
  3480.  moveq #0,d3
  3481.  move.b (a2,d1.w*4),d2
  3482.  move.b 1(a2,d1.w*4),d3
  3483.  sub.w #128,d2
  3484.  sub.w #128,d3
  3485.  
  3486.  move.w d2,d4
  3487.  move.w d3,d5
  3488.  muls ACOS,d2
  3489.  muls ASIN,d3
  3490.  sub.l d3,d2
  3491.  muls ASIN,d4
  3492.  muls ACOS,d5
  3493.  add.l d5,d4
  3494.  asl.l #2,d2
  3495.  swap d2
  3496.  asl.l #2,d4
  3497.  swap d4
  3498.  
  3499.  add.w #128,d2
  3500.  add.w #128,d4
  3501.  move.w d2,SSX
  3502.  move.w d4,SSY
  3503.  
  3504.  
  3505.  move.w 2(a2,d0.w*4),d2
  3506.  move.w 2(a2,d1.w*4),d3
  3507.  
  3508.  asr.w #4,d2
  3509.  asr.w #4,d3
  3510.  
  3511.  bra .bothtowards
  3512.  
  3513.  tst.w d2
  3514.  blt .firsttowards
  3515.  bgt.s .firstaway
  3516.  
  3517.  tst.w d3
  3518.  ble .bothtowards
  3519.  bra .bothaway
  3520.  
  3521. .firstaway
  3522.  tst.w d3
  3523.  blt .sectowards
  3524.  bra .bothaway
  3525.  
  3526. .firsttowards:
  3527.  tst.w d3
  3528.  ble .bothtowards
  3529.  
  3530. ; First one is towards, the second away.
  3531. ; Do the line in two bits: one heading
  3532. ; from the first point to the rim, the
  3533. ; other heading from the rim to the second
  3534. ; point and flagged as behind.
  3535.  
  3536.  move.w d6,d7    ; total length to draw
  3537.  move.w d2,FIRSTY
  3538.  move.w d3,LASTY
  3539.  
  3540.  neg.w d2
  3541.  add.w d2,d3     ; total change in Y
  3542.  
  3543.  bra.s .onetowards
  3544.  
  3545. .sectowards:
  3546.  move.w d6,d7    ; total length to draw
  3547.  move.w d2,FIRSTY
  3548.  move.w d3,LASTY
  3549.  neg.w d3
  3550.  add.w d2,d3
  3551.  
  3552. .onetowards:
  3553.  
  3554.  muls d2,d6
  3555.  divs d3,d6    ; length of first bit of line.
  3556.  
  3557.  ext.l d6
  3558.  ext.l d7
  3559.  
  3560.  move.w d6,FIRSTLEN
  3561.  sub.l d6,d7
  3562.  move.w d7,LASTLEN
  3563.  
  3564.  add.l d7,d6
  3565.  
  3566.  move.w FIRSTY,d2
  3567.  move.w LASTY,d3
  3568.  swap d2
  3569.  clr.w d2
  3570.  swap d3
  3571.  clr.w d3
  3572.  sub.l d2,d3
  3573.  divs.l d6,d3
  3574.  move.l d3,a6
  3575.  move.l d2,d7
  3576.  
  3577.  moveq #0,d2
  3578.  moveq #0,d3
  3579.  moveq #0,d4
  3580.  moveq #0,d5
  3581.  move.b (a2,d0.w*4),d2
  3582.  move.b 1(a2,d0.w*4),d3
  3583.  
  3584.  move.w d2,FIRSTU
  3585.  move.w d3,FIRSTV
  3586.  
  3587.  move.w d2,d4
  3588.  move.w d3,d5
  3589.  sub.w #128,d2
  3590.  sub.w #128,d3
  3591.  muls d2,d2
  3592.  muls d3,d3
  3593.  add.l d3,d2
  3594.  jsr CALCSQROOT
  3595.  
  3596.  tst.w d2
  3597.  beq.s .nochng
  3598.  
  3599.  sub.w #128,d4
  3600.  sub.w #128,d5
  3601.  muls #127,d4
  3602.  muls #127,d5
  3603.  divs d2,d4
  3604.  divs d2,d5
  3605.  add.w #128,d4
  3606.  add.w #128,d5
  3607.  
  3608. .nochng:
  3609.  
  3610.  move.w d4,MIDU
  3611.  move.w d5,MIDV
  3612.  
  3613.  move.b (a2,d1.w*4),d4
  3614.  move.b 1(a2,d1.w*4),d5
  3615.  move.w d4,SECU
  3616.  move.w d5,SECV
  3617.  
  3618. ; move.w d4,d2
  3619. ; move.w d5,d3
  3620. ;
  3621. ; sub.w #128,d2
  3622. ; sub.w #128,d3
  3623. ; muls d2,d2
  3624. ; muls d3,d3
  3625. ; add.l d3,d2
  3626. ; jsr CALCSQROOT
  3627. ;
  3628. ; tst.w d2
  3629. ; beq.s .nochng2
  3630. ;
  3631. ; sub.w #128,d4
  3632. ; sub.w #128,d5
  3633. ; muls #127,d4
  3634. ; muls #127,d5
  3635. ; divs d2,d4
  3636. ; divs d2,d5
  3637. ; add.w #128,d4
  3638. ; add.w #128,d5
  3639. ; 
  3640. ;.nochng2:
  3641. ;
  3642. ; add.w MIDU,d4
  3643. ; add.w MIDV,d5
  3644. ; asr.w #1,d4
  3645. ; asr.w #1,d5
  3646. ; move.w d4,MIDU
  3647. ; move.w d4,MIDV
  3648.  
  3649.  move.l #NORMBRIGHTS,a2
  3650.  move.w (a2,d0.w*2),d0
  3651.  move.w (a2,d1.w*2),d1
  3652.  
  3653.  sub.w d0,d1
  3654.  swap d1
  3655.  swap d0
  3656.  divs.l d6,d1
  3657.  
  3658.  move.w FIRSTLEN,d6
  3659.  beq.s .nofirstbit
  3660.  ext.l d6
  3661.  
  3662.  moveq #0,d2
  3663.  moveq #0,d3
  3664.  moveq #0,d4
  3665.  moveq #0,d5
  3666.  move.w FIRSTU,d2
  3667.  move.w MIDU,d3
  3668.  move.w FIRSTV,d4
  3669.  move.w MIDV,d5
  3670.  
  3671.  sub.w d2,d3
  3672.  swap d2
  3673.  swap d3
  3674.  divs.l d6,d3
  3675.  move.l d3,a4
  3676.  
  3677.  sub.w d4,d5
  3678.  swap d4
  3679.  swap d5
  3680.  divs.l d6,d5
  3681.  move.l d5,a5
  3682.  
  3683.  bsr DOABITOFLINE
  3684. .nofirstbit:
  3685.  
  3686.  move.w LASTLEN,d6
  3687.  beq.s .nosecbit
  3688.  ext.l d6
  3689.  
  3690.  moveq #0,d2
  3691.  moveq #0,d3
  3692.  moveq #0,d4
  3693.  moveq #0,d5
  3694.  move.w MIDU,d2
  3695.  move.w SECU,d3
  3696.  move.w MIDV,d4
  3697.  move.w SECV,d5
  3698.  
  3699.  sub.w d2,d3
  3700.  swap d2
  3701.  swap d3
  3702.  divs.l d6,d3
  3703.  move.l d3,a4
  3704.  
  3705.  sub.w d4,d5
  3706.  swap d4
  3707.  swap d5
  3708.  divs.l d6,d5
  3709.  move.l d5,a5
  3710.  
  3711.  bsr DOABITOFLINE
  3712. .nosecbit:
  3713.  
  3714.  bra .noline
  3715.  
  3716. .bothaway
  3717.  
  3718. ; Both are away, so do it simply.
  3719.  
  3720. .bothtowards:
  3721.  
  3722. ; Both are towards, so do it simply and flag all
  3723. ; points as towards.
  3724.  
  3725.  swap d2
  3726.  clr.w d2
  3727.  swap d3
  3728.  clr.w d3
  3729.  sub.l d2,d3
  3730.  divs.l d6,d3
  3731.  move.l d3,a6
  3732.  move.l d2,d7
  3733.  
  3734.  moveq #0,d2
  3735.  moveq #0,d3
  3736.  moveq #0,d4
  3737.  moveq #0,d5
  3738. ; move.b (a2,d0.w*4),d2
  3739. ; move.b (a2,d1.w*4),d3
  3740. ; move.b 1(a2,d0.w*4),d4
  3741. ; move.b 1(a2,d1.w*4),d5
  3742.  
  3743.  move.w FSX,d2
  3744.  move.w SSX,d3
  3745.  move.w FSY,d4
  3746.  move.w SSY,d5
  3747.  
  3748.  sub.w d2,d3
  3749.  swap d2
  3750.  swap d3
  3751.  divs.l d6,d3
  3752.  move.l d3,a4
  3753.  
  3754.  sub.w d4,d5
  3755.  swap d4
  3756.  swap d5
  3757.  divs.l d6,d5
  3758.  move.l d5,a5
  3759.  
  3760.  move.l #NORMBRIGHTS,a2
  3761.  move.w (a2,d0.w*2),d0
  3762.  move.w (a2,d1.w*2),d1
  3763.  
  3764.  sub.w d0,d1
  3765.  swap d1
  3766.  swap d0
  3767.  divs.l d6,d1
  3768.  
  3769.  bsr DOABITOFLINE
  3770.  
  3771. .noline:
  3772.  rts
  3773.  
  3774.  DOABITOFLINE:
  3775.  subq #1,d6
  3776.  
  3777. .STICKINGOUR:
  3778.  swap d7
  3779.  move.b d7,2(a3)
  3780.  swap d7
  3781.  add.l a6,d7
  3782.  swap d0
  3783.  move.w d0,4(a3)
  3784.  swap d0
  3785.  add.l d1,d0
  3786.  swap d2
  3787.  move.b d2,8(a3)
  3788.  swap d4
  3789.  move.b d4,9(a3)
  3790.  swap d4
  3791.  adda.w #16,a3
  3792.  swap d2
  3793.  add.l a4,d2
  3794.  add.l a5,d4
  3795.  dbra d6,.STICKINGOUR
  3796.  
  3797.  rts
  3798.  
  3799. FIRSTY: dc.w 0
  3800. LASTY: dc.w 0
  3801. FIRSTU: dc.w 0
  3802. SECU: dc.w 0
  3803. FIRSTV: dc.w 0
  3804. SECV: dc.w 0
  3805.     dc.w 0
  3806. FIRSTLEN: dc.w 0
  3807.     dc.w 0
  3808. LASTLEN: dc.w 0
  3809. MIDU: dc.w 0
  3810. MIDV: dc.w 0
  3811.  
  3812. *!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  3813.  
  3814.  
  3815.  
  3816. ************************************************
  3817. ************************************************
  3818. ************************************************
  3819. ************************************************
  3820. ************************************************
  3821. ************************************************
  3822. ************************************************
  3823. ************************************************
  3824. ************************************************
  3825. ************************************************
  3826. ************************************************
  3827. ************************************************
  3828. ************************************************
  3829. ************************************************
  3830. ************************************************
  3831. ************************************************
  3832. ************************************************
  3833.  
  3834.  move.w d3,TOPLINE
  3835.  move.w d4,BOTLINE
  3836.  
  3837.  
  3838.  
  3839.  
  3840. *********************************************
  3841.  
  3842. CALCSQROOT:
  3843.  tst.l d2
  3844.  beq .oksqr
  3845.  
  3846.  movem.l d0/d1/d3-d7/a0-a6,-(a7)
  3847.  
  3848.  move.w #31,d0
  3849. .findhigh
  3850.  btst d0,d2
  3851.  bne .foundhigh
  3852.  dbra d0,.findhigh
  3853. .foundhigh
  3854.  asr.w #1,d0
  3855.  clr.l d3
  3856.  bset d0,d3
  3857.  move.l d3,d0
  3858.  
  3859.  move.w d0,d1
  3860.  muls d1,d1    ; x*x
  3861.  sub.l d2,d1    ; x*x-a
  3862.  asr.l #1,d1    ; (x*x-a)/2
  3863.  divs d0,d1    ; (x*x-a)/2x
  3864.  sub.w d1,d0    ; second approx
  3865.  bgt .stillnot0
  3866.  move.w #1,d0
  3867. .stillnot0
  3868.  
  3869.  move.w d0,d1
  3870.  muls d1,d1
  3871.  sub.l d2,d1
  3872.  asr.l #1,d1
  3873.  divs d0,d1
  3874.  sub.w d1,d0    ; second approx
  3875.  bgt .stillnot02
  3876.  move.w #1,d0
  3877. .stillnot02
  3878.  
  3879.  move.w d0,d1
  3880.  muls d1,d1
  3881.  sub.l d2,d1
  3882.  asr.l #1,d1
  3883.  divs d0,d1
  3884.  sub.w d1,d0    ; second approx
  3885.  bgt .stillnot03
  3886.  move.w #1,d0
  3887. .stillnot03
  3888.  
  3889.  move.w d0,d2
  3890.  ext.l d2
  3891.  
  3892.  movem.l (a7)+,d0/d1/d3-d7/a0-a6
  3893.  
  3894. .oksqr
  3895.  rts
  3896.  
  3897.  
  3898. **********************************************
  3899. **********************************************
  3900. **********************************************
  3901. **********************************************
  3902. **********************************************
  3903. **********************    ************************
  3904. **********************************************
  3905. **********************************************
  3906. **********************************************
  3907. **********************************************
  3908. **********************************************
  3909. **********************************************
  3910. **********************************************
  3911. **********************************************
  3912. **********************************************
  3913. **********************************************
  3914. **********************************************
  3915. **********************************************
  3916. **********************************************
  3917.  
  3918. TOPLINE: dc.w 0
  3919. BOTLINE: dc.w 0
  3920.  
  3921.  
  3922.  
  3923. **********************************************
  3924. **********************************************
  3925. **********************************************
  3926. **********************************************
  3927. **********************************************
  3928. **********************************************
  3929. **********************************************
  3930. **********************************************
  3931. **********************************************
  3932. **********************************************
  3933. **********************************************
  3934. **********************************************
  3935. **********************************************
  3936. **********************************************
  3937. **********************************************
  3938. **********************************************
  3939. **********************************************
  3940. **********************************************
  3941. **********************************************
  3942.     
  3943.  
  3944.     
  3945.  dc.w 0
  3946. YDIFF: dc.w 0
  3947.  
  3948. SPINAROUND: dc.w 0    
  3949. XCOS: dc.w 0
  3950. YCOS: dc.w 0
  3951. XSIN: dc.w 0
  3952. YSIN: dc.w 0
  3953. XCOS3: dc.w 0
  3954. YCOS3: dc.w 0
  3955. XSIN3: dc.w 0
  3956. YSIN3: dc.w 0
  3957. XCOS2: dc.w 0
  3958. YCOS2: dc.w 0
  3959. XSIN2: dc.w 0
  3960. YSIN2: dc.w 0
  3961. XADD: dc.l 0
  3962. YADD: dc.l 0
  3963. ZADD: dc.l 0
  3964. XOFF: dc.w 0
  3965. YOFF: dc.w 0
  3966. OLDXM: dc.w 0
  3967. OLDYM: dc.w 0
  3968.  
  3969.  
  3970.  
  3971. TEXTUREADD: dc.w 0
  3972.  
  3973.  
  3974. **********************************************************
  3975.  
  3976. UVCOORDS: ds.l 250
  3977. ROTATEDPTS: ds.l 250*4
  3978. SHADOWPTS: ds.l 250*4
  3979. ONSCREENPTS: ds.l 250
  3980.  
  3981. ZOFF: dc.w 768
  3982.  
  3983. LEFTRIGHT: ds.l 256
  3984.  
  3985. POLYGONDATA:
  3986.  ds.b 30000
  3987.  
  3988. OBJNAME: dc.b "ab3:vectobj/testcube",0
  3989.  even
  3990. doslibname: dc.b 'dos.library',0
  3991.  even
  3992. doslib: dc.l 0
  3993.  
  3994. ****************************
  3995.  
  3996. SINETABLE:
  3997.  incbin "ab3:includes/bigsine"
  3998.  
  3999.  
  4000. YANG: dc.w 0
  4001. XANG: dc.w 0
  4002.  
  4003.  
  4004. xmouse: dc.w 0
  4005. ymouse: dc.w 0
  4006.  
  4007. spleen: dc.w 0
  4008. lastspleen: dc.w 0
  4009.  
  4010. COPIEDPAL:
  4011.  dc.w 256,0
  4012.  ds.l 3*256
  4013.  ds.l 10
  4014.  
  4015. SHADOWBUFFER:
  4016. HIGHLIGHT: incbin "work:temp/HIGHLIGHT"
  4017.  
  4018. PALETTEBIT:
  4019. ; incbin "256palette"
  4020. ; dc.w $ffff,$fffe
  4021.  
  4022.  incbin "ab3:shadowtex/shadowpal"
  4023.  
  4024.  include "ab3:source_4000/chunky.s"
  4025.  
  4026. willy: ds.w 48
  4027.  
  4028.  
  4029. PALS:
  4030.  ds.l 2*49
  4031.  
  4032. pregour: dc.b 0
  4033. Gouraud: dc.b 0
  4034.  
  4035. PointAngPtr: dc.l 0
  4036. FRAMENUM: dc.w 0
  4037. PolyAngPtr: dc.l 0
  4038. PtsPtr: dc.l 0
  4039. LinesPtr: dc.l 0
  4040. POINTER_TO_POINTERS: dc.l 0
  4041. FRAME: dc.w 4
  4042. FLIBBLE: dc.w 0
  4043. START_OF_OBJECT: dc.l 0
  4044. num_points: dc.w 0
  4045. num_frames: dc.w 0
  4046. SORTIT: dc.w 0
  4047. PartBuffer: ds.l 2*32
  4048. endparttab:
  4049.  
  4050. x1: dc.w 0
  4051. y1: dc.w 0
  4052. z1: dc.w 0
  4053. x2: dc.w 0
  4054. y2: dc.w 0
  4055. z2: dc.w 0
  4056. x2b: dc.w 0
  4057. y2b: dc.w 0
  4058. z2b: dc.w 0
  4059.  
  4060. x3: dc.w 0
  4061. y3: dc.w 0
  4062. z3: dc.w 0
  4063.  
  4064. l1: dc.w 0
  4065. l2: dc.w 0
  4066.  
  4067. OBJONOFF: dc.l 0
  4068.  
  4069. SAVEHIGHS: ds.w 30
  4070.  
  4071. FASTBUFFER:
  4072.  dc.l fasty
  4073.  
  4074. fasty: ds.b 320*256
  4075.  
  4076. NORMBRIGHTS: ds.w 250
  4077.  
  4078. SPECBRIGHTS:
  4079.  dcb.l 100,31
  4080.  
  4081. ENDNORM:
  4082.  
  4083. LEFTUVS: ds.w 8*256
  4084. RIGHTUVS: ds.w 8*256
  4085.  
  4086. NORMVECTS: ds.w 3*250
  4087.  
  4088. ;WORLD: incbin "ab3:includes/world"
  4089.  
  4090. ;TWEEN: incbin "ab3:includes/tweenbrightfile"
  4091.  
  4092.  
  4093.  
  4094. NEBBIE: incbin "work:temp/nebbieroar"
  4095.     ds.l (192/4)*16
  4096.  
  4097.  SECTION blib,code_f
  4098.  
  4099. TEXTURES:
  4100.  incbin "ab3:includes/shadowmaps"
  4101.  even
  4102.  
  4103.  SECTION BGDROP,code_c
  4104.  
  4105. RAWSCRN:
  4106.  ds.l 2560*8
  4107.